Bonsoir,
Sub Macro1()
'on copie la plage B3:K3
Range("B3:K3").Copy
'on colle les valeurs de la plage B3:K3 dans la plage B5:K5
Range("B5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'on tri les valeurs de la plage B5:K5
Range("B5:K5").Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Application.CutCopyMode = False
End Sub
C'est le même principe que dans ton précédent post...