Bonjour
Sub triage2()
Dim ligne_deb As Byte, ligne_fin As Byte
Dim nbre_tri As Byte
Dim tri1 As Integer, clr1 As Integer
'Réaffiche les lignes masquées
Rows("10:5000").EntireRow.Hidden = False
ligne_deb = 10
ligne_fin = Range("a65535").End(xlUp).Row
tri1 = Asc(Cells(2, 1)) - 59
clr1...