Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For i = 1 To 15 Step 4
Cells(1, i).Resize(27, 4).Sort key1:=Cells(1, i + 2), order1:=xlDescending, key2:=Cells(1, i + 3), order2:=xlDescending, Header:=xlYes
Next i
Application.EnableEvents = True
End Sub
J'ai trouvé merci