ca n'est pas Change mais Click et Add Control
Click tout seul marche une fois sur deux et avec Add Control C'est Ok J'ai essayé sur ton fichier.
Private Sub MultiPage1_AddControl(ByVal Index As Long, ByVal Control As MSForms.Control)
If (MultiPage1.Value = 2) Then msg = MsgBox('Attention vous allez CREER une nouvelle entrée', vbYesNo, 'ATTENTION !!!')
If (MultiPage1.Value = 1) Then msg = MsgBox('Attention vous allez MODIFIER une entrée', vbYesNo, 'ATTENTION !!!')
If msg = vbNo Then MultiPage1.Value = 0
End Sub
Private Sub MultiPage1_Click(ByVal Index As Long)
If (MultiPage1.Value = 2) Then msg = MsgBox('Attention vous allez CREER une nouvelle entrée', vbYesNo, 'ATTENTION !!!')
If (MultiPage1.Value = 1) Then msg = MsgBox('Attention vous allez MODIFIER une entrée', vbYesNo, 'ATTENTION !!!')
If msg = vbNo Then MultiPage1.Value = 0
End Sub
Bon courage
Typx