Voici ta formule modifiée pour qu'elle fonctionne :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not IsDate(Target.Value) Or _
Target.NumberFormatLocal <> "jj/mm/aa" Then
MsgBox "Les dates doivent être au format jj/mm/aa, merci !"
End If
End Sub
ceci dit, le format de date dépend de ce que tu indiques dans le menu Format de cellule. Autrement dit, tu auras beau taper 22/10/02, si ta cellule est au format jj/mm/aaaa, alors tu auras systématiquement une erreur et ta macro événementielle sera plus pénible qu'autre chose.
Bon courage tout de même.