Bonjour
ci joint un exemple de code
Sub Copie_datas_dans_feuille()
' dans le même classeur, des datas d'une feuille dans une autre, Colonne 1 à 6
Dim Rg As Range,Derli&
Dim Tablo, Dest As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With Feuil2 'Feuille source
.Activate
.Cells(2, 1).Select
Derli = Range('A65536').End(xlUp).Row - 1
' Copie à partir de la 2° Ligne jusqu'à la dernière
Tablo = Feuil2.Cells(2, 1).Resize(Derli, 6).Value
End With
With Feuil3 'Feuille de destination
'Première cellule de la plage
'Set Dest = .Range('A2')
.Cells(2, 1).Resize(Derli, 6) = Tablo
.Activate
.Cells(2, 1).Select
End With
Application.EnableEvents = True
Set Rg = Nothing
Erase Tablo
End Sub