Bouton Recherche - Fonction If qui mange l'autre

Bonjour,

Je ne sais pas si mon intitulé est très exacte. Je vous explique plus clairement mon soucis. J'ai mis en place un code avec deux fonctions If afin que mes textbox aillent chercher les informations si les données sont trouvées et qu'une message box s'affiche si au contraire celles-ci n'existent pas. J'ai essayé plusieurs façon d'écrire ma requête et de placer différemment mes fonctions mais j'obtiens toujours le même résultat.
Ma message box s'affiche tout le temps, même si les données recherchées sont existantes. Néanmoins quand j'enlève la requête If Not avec la message box, les données sont retrouvées.
Voici mon code :

Private Sub btnrecherche_Click()
  If L_date1.Value = "" And L_chefdequart1.Value = "" Then
    MsgBox "Veuillez inscrire la date", vbInformation
    Exit Sub
    End If
    For d = 4 To 200018
        If Not CDate(L_date1) = Feuil2.Cells(d, 1) And L_chefdequart1 = Feuil2.Cells(d, 2) Then
        MsgBox "Date Inexistante", vbExclamation
        Exit Sub
        ElseIf CDate(L_date1) = Feuil2.Cells(d, 1) And L_chefdequart1 = Feuil2.Cells(d, 2) Then
            L_seringues5cc1 = Feuil2.Cells(d, 3).Value
            L_autresseringues1 = Feuil2.Cells(d, 4).Value
            L_godets20g1 = Feuil2.Cells(d, 7).Value
            L_cartouches70g1 = Feuil2.Cells(d, 8).Value
            L_cartouches170g1 = Feuil2.Cells(d, 9).Value
            L_totals5cc1 = Feuil2.Cells(d, 5).Value
            L_totalseringues1 = Feuil2.Cells(d, 6).Value
            L_totalgodets1 = Feuil2.Cells(d, 10).Value
            L_totalcartouches70g1 = Feuil2.Cells(d, 11).Value
            L_totalcartouches1701 = Feuil2.Cells(d, 12).Value
        End If
     Next d
End Sub

Je vous remercie d'avance pour votre aide.