Dim Msg, Style, Title, Response, MyString
Msg = 'voulez vous vraiment exécuter cette
commande?'
Style = vbYesNo + vbQuestion + vbDefaultButton1
Title = 'confirmation'
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyString = 'Yes'
Else
MyString = 'No'
End
End If