Microsoft 365 MsgBox en 2 temps

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle et chaude journée

Je n'arrive pas à faire mon MsgBox en un seul affichage.

J'ai fait ce petit code :

Sub cherche()
    Sheets("RdV_transfert").Select
    Columns("h:h").Select
    On Error Resume Next
        Selection.Find(What:="à confirmer", After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Select
    ActiveCell.Offset(0, 1) = "=VALUE(LEFT(REPLACE(REPLACE(RC[-7],3,1,""/""),6,1,""/""),10))-RC[-6]"
    ActiveCell.Offset(0, 2) = "Réseau               :    " & ActiveCell.Offset(0, -3) & Chr(10) & "Agent                 :   " & " " & ActiveCell.Offset(0, -2) & Chr(10) & "Date RdV           :   " & " " & ActiveCell.Offset(0, -6) & Chr(10) & "Date Appel        :   " & " " & ActiveCell.Offset(0, -5) & Chr(10) & "Nbr jours entre :   " & " " & ActiveCell.Offset(0, 1)
    
    MsgBox ActiveCell.Offset(0, 2)
    If MsgBox("= OUI" & Chr(10) & "ou  =  NON", vbQuestion + vbYesNo) <> vbNo Then
    ActiveCell.Offset(0, 3) = "NON"
    Else
    ActiveCell.Offset(0, 3) = "OUI"
    End IF
    ActiveCell.Offset(0, 1) = ""
    ActiveCell.Offset(0, 2) = ""
    [a1].Select
End Sub

Le MsgBox s'exécute en 2 temps et je le voudrais en un seul temps :

Je n'arrive pas à trouver le bon code
Pourriez-vous m'aider ?
Je joins le fichier test et je continue à "bidouiller" Grrrrr :
Je vous remercie vivement
Amicalement,
lionel

 

[AtTheOne]

Bonjour tout le monde,
Je n'ai que mon téléphone ici, donc pas question de faire de test mais pourquoi pas :

If
MsgBox(prompt:=ActiveCell.Offset(0, 2),
buttons:=vbQuestion + vbYesNo) <> vbNo
then

Amicalement
Alain

 

[Usine à gaz]

Bonjour Alain,
Merci pour le code, c'est nickel.
Je te remercie
lionel