Bonjour,
Bonjour M12,
Une proposition plus académique pour débutant.
Cdlt.
Private Sub CommandButton1_Click()
Dim Message As String, Title As String
Dim Default As VbMsgBoxStyle
Dim Response As VbMsgBoxResult
Message = "Veuillez confirmer l'exécution de la procédure."
Title = "Demande confirmation"
Default = vbYesNo + vbQuestion
Response = MsgBox(Message, Default, Title)
Select Case Response
Case vbNo
Exit Sub
Case vbYes
MsgBox "Bonjour " & Application.UserName, vbInformation
' Ton code
End Select
End Sub