Recherche de valeur dans liste d'arguments

Sub Trouve() 
With Worksheets("Feuil1").Range("C1:C40") 
Set c = .Find(Range("A1").Value, LookIn:=xlValues) 
If Not c Is Nothing Then 
Range("B1") = "True" 
Else 
Range("B1") = "False" 
End If 
End With 
End Sub 

Sub Trouve()
Dim derlig As Integer, i As Integer, j As Integer
'vérifie si la cellule C... contient quelque chose, si oui alors inscrit 1 en colonne I
derlig = Range("C65536").End(xlUp).Row
For i = 1 To derlig
If Range("C" & i) <> "" Then
Range("I" & i) = 1
Else
Range("I" & i) = 0
End If
Next i
'vérifie si le contenu de la cellule D... est contenu entre A1 et A40 feuille2
derlig = Range("D65536").End(xlUp).Row
With Worksheets("Feuil2").Range("A1:A40")
For j = 1 To derlig
Set c = .Find(Range("D" & j).Value, LookIn:=xlValues)
If Not c Is Nothing Then
If c Like Range("D" & j).Value Then
Range("I" & j) = 0
Else
Range("I" & j) = 1
End If
End If
Next j
End With
End Sub

Dim numlig as Integer
numlig = Sheets("Feuil2").Range("A65536").End(XlUp).Row
'blablabla
'et remplacer : Range("A1:A40") par :
Range("A1:A" & numlig)

Sub test()
Dim cel As Range
Dim derlig As Integer, j As Integer, numlig As Integer
derlig = Sheets("Feuil1").Range("A65536").End(xlUp).Row
numlig = Sheets("Feuil2").Range("A65536").End(xlUp).Row
With Worksheets("Feuil2")
For j = 7 To derlig
    For Each cel In .Range("A1:A" & numlig)
        If cel.Value Like Range("D" & j).Value Then
        Range("I" & j) = 0
        GoTo suivant
        Else
            If Range("C" & j) = "" Then
            Range("I" & j) = 0
            Else
            Range("I" & j) = 1
            End If
        End If
    Next cel
suivant:
Next j
End With
End Sub

numlig = Sheets("Test List").Range("A65536").End(xlUp).Row

numlig as Integer