Sub Macro_Copy()
ActiveSheet.Unprotect Password:="dt"
Application.ScreenUpdating = False
Worksheets("Commercial").Select 'selection de la feuille ou tu veux selectionner les données a copier
Range("A5:C200").Select 'plage de cellule a copier ici c'est de A5 à C200
Selection.Copy 'on copie
With Sheets("Facturation").Range("A6")
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
'Tri de l'onglet Commercial
Worksheets("Commercial").Select 'selection de la feuille ou tu veux selectionner les données a copier
Range("A5:AY200").Select 'plage par exemple où sont tes noms et adresses
Selection.Sort Key1:=Range("C5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'A5 est la cellule où il y a le premier nom
Range("A5").Select
'Tri de l'onglet Facturation
Worksheets("Facturation").Select 'selection de la feuille ou tu veux selectionner les données a copier
Range("A6:AS200").Select 'plage par exemple où sont tes noms et adresses
Selection.Sort Key1:=Range("C6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 'A6 est la cellule où il y a le premier nom
Range("A6").Select
Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, Password:="dt"
End Sub