Sub Copie()
Dim Nblignes As Long
'Nombre de lignes dans le fichier source
Nblignes = Workbooks("source 1.xlsx").Worksheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
ThisWorkbook.Worksheets("Feuil1").Range("R2:S2").Copy
Worksheets("Feuil1").Range("A2:A" & Nblignes).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub