Bonjour,
Ci dessous proposition de macro VBA pour copier le tbleau de feuille 1 en feuille 2
Sub evelyne()
Dim transfert As Range
Dim lig As Long
'fige l'écran (va + vite et - stressant....)
Application.ScreenUpdating = False
Sheets("feuil1").Activate
' trie le tableau (la ligne 1 contient les noms de champs et on suppose _
que les dates sont dans la colonne A
Range("A2
65536").Sort Key1:=Range("A2")
'numero dernière ligne occupée
lig = Range("A1").End(xlDown).Row
'plage à transfèrer feuil 2
Set transfert = Range(Cells(2, 1), Cells([lig], 4))
Sheets("feuil2").Activate
' le tableau feuille 2 commence en B4 par exemple
Range(Cells(4, 2), Cells([lig] + 2, 5)) = transfert.Value
End Sub
Si tu veux aller vite, les range.copy et paste sont à proscrire… Consultes à ce sujet le site de Laurent Longre sur les conseils de rapidité (Laurent Longre est un des « papes » d’excel).
Bonne soirée
Michel. Béziers