MsgBox - Réponse Automatique

Bonjour, j'ai un TRÈS TRÈS gros soucis (vous êtes mon dernier espoir)...

Je sélectionne un texte, par exemple le mot "Salut", et je souhaite le remplacer par le mot "Bonjour".

Je souhaite enregistrer une macro pour que cela me le fasse automatiquement : SANS AFFICHER LA MSGBOX qui me demande si je veux effectuer le remplacement dans le reste du document (jusque là, je sais faire), mais où LA RÉPONSE À CE MSGBOX EST "NON" (et ça je ne sais pas faire, car par défaut, la réponse et "oui").

Bref. Voici le code en question que je souhaite modifier :

Sub Test()
'
' Test Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Salut"
        .Replacement.Text = "Bonjour"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Y a-t-il donc une instruction en Visual Basic pour répondre automatiquement à une MsgBox sans pour autant que ce soit la valeur par défaut qui soit choisie ?

Merci d'avance pour votre aide !

Et pour info : je travaille plutôt sur Word, plus que sur Excel.

Bonjour toutes et tous

un truc similaire à cela

@méditer

Selection.Replace What:="Salut", Replacement:="Bonjour", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

EDIT: double post, ah pour Word, i'not said sorry!

crdlt,

André