Recherche d'une partie d'une cellule

Private Sub CommandButton1_Click() 'Ceci est juste la définition de la fonction de recherche, le nom importe peu

    Dim iR As Long 'iR est l'indice de ligne recherchée, cette variable change dans la première boucle (elle passe en revue les lignes de Donery de 2 à 30000 sur la quatrième colonne)

    Dim iAV As Long 'Ceci est la ligne dans laquelle le résultat de la recherche sera collé sur une nouvelle feuille
    
    Dim iL As Long 'iL est l'indice de la ligne utilisée pour la recherche, cette variable change dans la deuxieme boucle

	Dim L1 As Long 'L1 est la ligne jusqu'à laquelle la premiere boucle parcourt le tableau
	
	Dim L2 As Long 'L2 est la ligne jusqu'à laquelle la deuxieme boucle parcourt le tableau
    
    Dim R As Worksheet 'Définition de la variable R comme étant une feuille excel

    Dim AV As Worksheet 'Définition de la variable AV comme étant une feuille excel

    Set R = Worksheets("Donery")  'Feuille de l'entreprise

    Set AV = Worksheets("Feuil1") 'Nouvelle feuille
    
    Set EQ = Worksheets("Equivalences") 'Feuille d'où provient la donnée de recherche
	
	L1 = 18535
	
	L2 = 310
 
    iAV = 2
    
    iL = 1
    
    For iR = 2 To L1
        
        For iL = 2 To L2

        If R.Cells(iR, 4) = EQ.Cells(iL, 2) Then

            R.Range(iR & ":" & iR).Copy AV.Cells(iAV, 1)
            
            iAV = iAV + 1

        End If
        
        Next

    Next

End Sub

        R.Range("D2:D18535").AutoFilter Field:=1, Criteria1:="=*" & Mot & "*", _ 
            Operator:=xlAnd

"  If R.Cells(iR, 4) = EQ.Cells(iL, 2) Then"

Option Compare Text