Sub Trier_données()
Application.ScreenUpdating = False
DligneSource = Sheets("Feuille Source").[A4].End(xlDown).Row
DLigneDestination = Sheets("Feuille copie voulue").[A4].End(xlDown).Row
'---- Suppression des anciennes informations dans l'onglet de destination pour éviter les doublons
Sheets("Feuille copie voulue").Activate
Range("A5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).ClearContents
'----Sélection des données à copier dans l'onglet Source
Sheets("Feuille Source").Range("A5:Q" & DligneSource).Copy
Sheets("Feuille copie voulue").[A5].PasteSpecial
Sheets("Feuille Source").Range("U5:V" & DligneSource).Copy
Sheets("Feuille copie voulue").[O5].PasteSpecial
Sheets("Feuille Source").Range("Z5:AB" & DligneSource).Copy
Sheets("Feuille copie voulue").[Q5].PasteSpecial
Application.CutCopyMode = False
End Sub