Ce code tient compte des exceptions en ce qui concerne les adresses web (http:)

 

Sub EspaceAvantPonctuationsDoubles()
'macro écrite par m@rina
With ActiveDocument.Content.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "([! ;^s])([;;:;\!;\?])([!/;\\])"
    .Replacement.Text = "\1^s\2\3"
    .Forward = True
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
End With

End Sub