Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False 'désactive les évènements
If ActiveCell Like "Tri #" Then Tri IIf(Right(ActiveCell, 1) = "1", 1, 4): [A1].Select
Application.EnableEvents = True 'réactive les évènements
End Sub