Bonjour Steelson le forum
bon alors tout le monde bosse là dessus
moi pour le classement c'est ok
voilà tu rajoutes un module et tu mets (j'ai renommé le tableau Tab_1) et tu rajoutes call classer avant de réactiver les événements , chez moi cela marche très bien, j'ai classé par numéro de feuille ascendant et de la date de descendant
a+
Papou
Sub classer()
Dim list As ListObject
If Sheets("Journal").ListObjects("Tab_1").DataBodyRange Is Nothing Then Exit Sub
Set list = Sheets("Journal").ListObjects("Tab_1")
With list.DataBodyRange
.Sort Key1:=.Columns(2), order1:=xlAscending, Key2:=.Columns(1), Order2:=xlDescending, Header:=xlYes
End With
End Sub