Sub CopieIII()
Dim Plage_A_Copier As Range, Plage_Destination As Range
Set Plage_A_Copier = _
'c'est ici qu'il faut change la plage à copier
Worksheets("Feuil2").Range("A1:E12")
'Première cellule vide
Set Plage_Destination = _
Worksheets("Feuil1").Range("A" & [A65536].End(xlUp).Row + 1)
'Redimensionne la plage Destination à la taille de la Plage_A_Copier
With Plage_A_Copier
Set Plage_Destination = Plage_Destination.Resize(.Rows.Count, .Columns.Count)
End With
'"Copie" les valeurs dans la Plage_Destination
Plage_Destination.Value = Plage_A_Copier.Value
End Sub