Copier coller une ligne de titre vers un autre classeur Excel

Bonjour la communauté,

j'ai un petit soucis, j'aimerai savoir si quelqu'un pouvait par charité corriger ma formule (à l'origine entre dans un ensemble permettant une extraction de données).

En effet lorsque je la lance, une fois la macro terminée, la ligne n'a été collée nulle part.

With ThisWorkbook.Worksheets("Feuil1")
 
  .Range(.Cells(3, 1), .Cells(3, .Columns.Count).End(xlToLeft)).Copy ClasseurSource.Worksheets("Feuil2").[A1]
 Application.CutCopyMode = False
 
    End With

Par avance merci de votre aide.