Private Sub MultiPagePointage_Change()
If MultiPagePointage.Pages(MultiPagePointage.Value).Name = "PagePointageDate" Then
If NomGRILLE$ = "" Then
MsgBox "Vous n'est pas placé sur un nom !?", vbOKOnly, "Info"
MultiPagePointage.Value = 0
Else
'suite du code si OK ...
End If
End If
End Sub