NEXT SANS FOR

Bonjour,

je fais un programme qui cherche des valeurs dans la feuille 1 (colonne T) et la feuille 2 (colone A) et qui colle les valeurs de la colonne B de la feuille 2 dans la colonne AN de la feuille 1 si il trouve les valeurs corrspondantes.
J'ai quelques problèmes de déblogage... notament "next sans for".
Merci d'avance de votre aide !

voici mon programme :

Sub general(action As Integer)

Dim Valeur As Variant, Lig As Integer, n As Integer 'déclaration des variables


Valeur = Sheets("FEUIL2").Range.Cells(n, 1)  '"valeur" représente le numéro de compte

     For n = 1 To 2127

   
        With Sheets("feuil1") 'on selectionne la feuille 1
            On Error Resume Next
            
            Lig = .Columns("T").Find(Valeur, , , , , xlPrevious).Row 'on recherche le numéro de compte dans la colonne T
            'quand on l'a trouvé on copie-colle les données correspondant au compte dans feuil1
            Sheets("feuil2").Range(.Cells(n, 2)) = Application.Range(.Cells(Lig, "AV"))
      Next n

        'si le programme n'a pas trouvé le numéro de compte, il ouvre une boite de dialogue pour l'indiquer:


End Sub