XL 2016 listing avec tri selon classification

Sub ecrire()
    For Each Ligne In Selection.Rows 'pour chaque ligne sŽlectionnŽes
        Call ecrirel(Ligne.Row)
    Next
End Sub
Sub ecrirel(maligne As Double)
    tabletrie = Array("FDS A CAISSE", "PAYE", "FDS + NDF", "NDF", "AR", "SCINTI", "", "FDS + TM")    'ces deux tables, vont indiquŽes l'ordre de trie
    indextablerie = Array(3, 3, 1, 1, 2, 3, 0, 3)                                  'l'index de tablerie, donnera la valeur de trie dans indextablerie
    bouton = Application.Caller
     Set bouton = ActiveSheet.Shapes(bouton)
    
    For n = 0 To UBound(tabletrie)
        If bouton.TextFrame2.TextRange.Text = tabletrie(n) Then etat = indextablerie(n) 'Žcriture de l'ordre de trie
    Next
    
    coul = bouton.Fill.ForeColor                'prŽlve la couleur du bouton
    With ActiveSheet
        .Cells(maligne, colet) = etat           ' Inscrit l'Žtat
        .Range(.Cells(maligne, 2), .Cells(maligne, dcol)).Interior.Color = coul ' Surligne
    End With
End Sub

        If bouton.TextFrame2.TextRange.Text = tabletrie(n) Then
            etat = indextablerie(n) 'Žcriture de l'ordre de trie
        End If

For n = 0 To UBound(tabletrie)
        If bouton.TextFrame2.TextRange.Text = tabletrie(n) Then
            etat = indextablerie(n)  'Žcriture de l'ordre de trie
    Exit For 'Ici On quitte si trouvé'
Next