Tri

bonsoir à tous me voilà de nouvea coincé avec:

Sub OrdreHierar() ' Cela ne fonctionne pas

PersDiv = Sheets('Données').Cells(12, 3).Value2 '

Worksheets('Personnels').Range(Cells(2, 1), Cells(PersDiv + 1, 7)).Sort _
Key1:=Worksheets('Personnels').Range(Cells(2, 1)), order1:=xlDescending, _
Key2:=Worksheets('Personnels').Range(Cells(2, 3)), Order2:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Sub OrdreHierar() 'cela fonctionne??????

PersDiv = Sheets('Données').Cells(12, 3).Value2 '


'Worksheets('Personnels').Range(Cells(“A2:G38”).Sort _
Key1:=Worksheets('Personnels').Range('A2'), Order1:=xlDescending, _
Key2:=Worksheets('Personnels').Range('C2'), Order2:=xlAscending ', _
'Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Je ne comprends pas quelle bourde je peux faire avec la procédure qui ne fonctionne pas. ainsi j'apelle AU SECOURS . mCI d'avance et JOYEUSES PAQUES A TOUS