Salut yoyo voici 1 exemple :
Sub CommandButton1_QuandClic()
Rep = MsgBox('Vous êtes sur le point de créer une nvlle entreprise ! Voulez vous poursuivre ?', vbInformation + vbOKCancel, _
' Actualisation des exercices comptables ')
If Rep = vbCancel Then
MsgBox ' Vous avez décidé d'annuler la création de la nouvelle entreprise', vbInformation, 'Paramétrage'
Else
MsgBox ' Vous avez choisi de créér une nouvelle Entreprise', vbInformation, 'Paramétrage'
End If
End Sub