Re : compteur
Bonsoir le forum,salsitawapa
Met dans ThisWorkbook
Private Sub Workbook_Open()
organiser
End Sub
Puis dans un module, la procédure suivante
Sub organiser()
Range("A7:B74").Select
Selection.Sort Key1:=Range("A7"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("E7:F74").Select
Selection.Sort Key1:=Range("E7"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.SmallScroll Down:=-1
Range("A1").Select
End Sub
Tu peux rajouter ce que tu veux, à chaque OUVERTURE de ton classeur, les données seront triées comme tu le veux
@micalement