Option Explicit
Sub Recopie()
'Transfert données de la fiche ModFaxture vers la fiche Client
Dim Source As String
Dim Cible As String
Dim LigneEncours As Long
Dim ClasseurSource As String, ClasseurCible As String
'Chargement du nom des feuilles origine et destination
Source = "Feuil1"
Cible = "Feuil1"
ClasseurSource = "Classeur1.xlsm"
ClasseurCible = "Classeur2.xlsx"
'Calcul de la ligne courante
LigneEncours = Workbooks(ClasseurCible).Worksheets(Cible).Range("A" & Rows.Count).End(xlUp).Row + 1
'Copie des valeurs
With Workbooks(ClasseurCible).Worksheets(Cible)
.Range("A" & LigneEncours) = Workbooks(ClasseurSource).Worksheets(Source).Range("A1").Value
.Range("B" & LigneEncours) = Workbooks(ClasseurSource).Worksheets(Source).Range("B1").Value
.Range("C" & LigneEncours) = Workbooks(ClasseurSource).Worksheets(Source).Range("C1").Value
End With
End Sub