Private Sub Worksheet_Change(ByVal Target As Range)
Dim Var As String
Var = CStr(Target.Address)
If Mid(Var, 2, 1) = 'F' Then
If (Target.NumberFormat = 'dd/mm/yyyy;@') Then
Call commentaire_anniv
Else
If Target.Value <> '' Then
MsgBox (' vous avez mal insérer la date, veuillez recommencer SVP!')
Target.Value = ''
Target.Select
End If
End If
End If
End Sub