Re : Tri personnalisé
Bonsoir,
Ci-joint une version Macro de la solution que tu utilises (si tu ne l'as pas deja fait ...)
Sub Test()
Range("A2").Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes
Var1 = Application.Match(0, Columns(1), 0)
If Not IsError(Var1) Then...