Sub Copier()
Dim col As Byte
With Sheets("récap")
col = Choose(1 + Application.CountA(.Range("A1"))*Application.CountA(.Range("A1:B1")), 0, 1, .Range("A1").End(xlToRight).Column)
.Range("A1:A1000").Offset(0, col) = Sheets("Quota").Range("G3:G1003").Value
End With
End Sub