Re Bonsoir
En dessous la macro avec en rouge, ce que souhaite ne pas devoir changer pour chaque feuille.
Range("A48").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("fiche-vierge").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("fiche-vierge").Sort.SortFields.Add Key:=Range( _
"A48:OJ48"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("fiche-vierge").Sort
.SetRange Range("A48:OJ48")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With