XL 2010 Erreur de recherche de dernière ligne

[dev_co]

Bonjour
Je travaille avec 2 fichiers , le principal 1 avec le code vba et celui servant pour extraire les données 2 et les copier dans 1
Normalement il y aura x fichiers 2
Donc pour copier ligne / Ligne il me faut connaitre la dernière ligne du 1

For x = 1 To Nbfic

    Workbooks.Open(Filename:=chemin & "\" & Nom_proj(x)) _
        .RunAutoMacros Which:=xlAutoOpen
    
    der_lig = Workbook.Sheets("Feuil1").Range("A6500").End(xlUp).Row  ' Ce fichier avec le code  1
  
    With Worksheets("Synthèse")
    ' ICI pour prendre les DATA et les copier dans ce fichier
    End With

Mais j'ai erreur 424 Objet requis pour der_lig ????
Ou est l'erreur ; Merci

 

[dev_co]

Sujet à supprimer ! trouvé
j'ai mis le der_lig après le FOR X = ........