Dans quelle colonne?feuille 2: colle à la première ligne disponible
Sub testII()
Dim Source As Range
Dim Destination As Range
'Définition de la plage à copier
Set Source = Sheets(1).Range("A1:B9")
'Détermination de la 1ère cellue vide de la colonne A de la feuille 2
Set Destination = Sheets(2).Range("A" & Sheets(2).[A65536].End(xlUp).Row + 1)
'Recopie de de la Source vers sa Destination
Source.Copy Destination
End Sub