Bonjour,
Excel 2007 et 2010
Ci dessous un code qui fonctionne très bien :
Sub tri_noms()
ActiveSheet.Unprotect
Range("A3:Q199").Select
Selection.Sort Key1:=Range("C4"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _...