Le programme vérifie la prochaine ligne disponible dans la mauvaise feuille

J'ai écrit un code qui copyrait datatables d'un tas de classurs Excel (les paths sont lus à partir d'un file txt dédié) vers une feuille maîtresse. La question que j'ai en ce moment est que, au lieu de vérifier et de coller dans la prochaine ligne disponible dans le classur MASTER, le code vérifie la prochaine ligne disponible dans les classurs et collage dans le numéro de ligne correspondant dans le classur principal .

Voici ce que j'ai atm. Jetez un coup d'oeil s'il vous plait

Open PathFile For Input As #1 Do Until EOF(1) Line Input #1, SourceFile Set Source = Workbooks.Open(SourceFile) With Source.Sheets("Action Tracker") lastRow = .Range("F" & .Rows.Count).End(xlUp).Row For i = 10 To lastRow If Len(Trim(.Range("F" & i).Value)) <> 0 Then If CopyRange Is Nothing Then Set CopyRange = .Rows(i) Else Set CopyRange = Union(CopyRange, .Rows(i)) End If End If Next If Not CopyRange Is Nothing Then CopyRange.Copy ThisWorkbook.Sheets("MasterSheet").Rows(Range("F100000").End(xlUp).Offset(1, 0).Row) End If End With Source.Close SaveChanges:=False CB.Clear Set CopyRange = Nothing Loop 

• Copier les cellules fusionnées VBA
• copyr une gamme avec l'exclusion d'une gamme à l'intérieur
• Copiez les valeurs dans une colonne à partir de plusieurs feuilles de travail en une seule
• copyz la cellule s'il contient du text
• Copier la feuille entière telle qu'elle est visualisée, sans rangées cachées

• VBA copy la table filtrée en boucle vers de nouvelles feuilles
• Comment copyr une valeur unique, modifier et coller dans une autre feuille VBA
• Macro Excel: Définir une variable pour un location de classurs?
• Mnacro dynamic en comparant deux tables et en ajoutant une rangée si elle n'est pas trouvée sur une table ou des informations de mise à jour si la ligne a été trouvée, mais certaines informations différentes
• Copier les valeurs dans les feuilles de calcul relatives

 CopyRange.Copy ThisWorkbook.Sheets("MasterSheet").Rows(Range("F100000").End(xlUp).Offset(1, 0).Row) 

 With ThisWorkbook.Sheets("MasterSheet") CopyRange.Copy .Rows(.Range("F100000").End(xlUp).Offset(1, 0).Row) End With