Sub T_ETAT()
' T_ETAT+ DESIGNATIONS
With Sheets("Synthèse")
.Range("a1").CurrentRegion.Sort key1:=.Range("a1"), Order1:=xlAscending, key2:=.Range("c1"), _
Order2:=xlAscending, Header:=xlYes, MatchCase:=False, Orientation:=xlTopToBottom
Application.Goto .Range("a1"), True
End With
End Sub