Private Sub Worksheet_Change(ByVal Target As Range)
Select Case MsgBox("Voulez-vous continuer ?", vbYesNo, "Confirmation")
Case vbYes
'Si oui, appel de la macro
Call Macro1
Case vbNo
MsgBox ("Merci et au revoir")
End Select
'Note que tu peux fairte comme ceci, mais effectivement c'est
'mieux de faire des macro et de les appeler.
'Select Case MsgBox("Voulez-vous continuer ?", vbYesNo, "Confirmation")
' Case vbYes
' MsgBox ("Coucou")
' Case vbNo
' MsgBox ("Merci et au revoir")
'End Select
End Sub
Private Sub Macro1()
MsgBox ("Coucou")
End Sub