numlignevide = ActiveSheet.Columns(1).Find("").Row
'on vérifie les champs obbligatoires sont correctement remplis'
If Txtnom.Value = "" Then
MsgBox "Veuillez remplir le nom de votre contact", vbCritical, "Champs manquant"
Txtnom.SetFocus
ElseIf Txtprenom.Value = "" Then
MsgBox " Veuillez remplir le Prénom de votre contact", vbCritical, "champ manquant"
Txtprenom.SetFocus
Else
MsgBox "On fait quoi ?"
End If