Trouvé :
Sub Test()
Dim varResponse As Variant
varResponse = MsgBox("Select 'Yes' or 'No'", vbYesNo, "Selection")
If varResponse <> vbYes Then Exit Sub
' The rest of your code goes here
End Sub
Existe-t-il une autre solution? Sinon elle fait la job!
A+