Problème de syntaxe erreur 13

    If Dat1 <> Dat2

    Then


Dim DateDerniere&, DatePrecedente&
Dim Dat1 As Date, Dat2 As Date
Dim Y%, W%, J%

J = 0
Dat1 = Sheets("Feuil1").Range("B5").Value
Dat1 = Format(Dat1, "dd/mm/yy")
'----------------------------
For Y = 0 To 49 'correspond au nbr de tirage récupéré tableau feuil3
    
    Dat2 = Sheets("Feuil3").Range("A" & 3 + Y).Value
    Dat2 = Format(Dat2, "dd/mm/yy")
    If Dat1 <> Dat2

    Then
        J = J + 1
    ElseIf Dat1 = Dat2 Then
        Exit For
    End If
Next Y
'----------------------------
If J = 0 Then
    CreateObject("Wscript.shell").Popup "Vous êtes à jour", 2, "Euro-Million"
ElseIf J < 50 Then
    MsgBox "Il vous manque " & J & " tirages"
ElseIf J = 50 Then
    MsgBox "Il vous manque plus de cinquante tirages, veuillez consulter la (fdjeux.fr) "
End If
End Sub