Trier colonnes de A à z

bonjour,

je voudrais trier chaque colonne de A à Z chacune seule

comme fichier ci joint, mais je vois que c'est pas propre

je suis arrêté à la lettre L

merci de votre réponse

bonsoir,

une proposition

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column < 27 Then 'seulement pour les colonnes A -Z
        Application.EnableEvents = False
        col = Target.Column
        dl = Cells(Rows.Count, col).End(xlUp).Row
        Cells(1, col).Resize(dl, 1).Sort key1:=Cells(1, col), order1:=xlAscending, Header:=xlYes
        Application.EnableEvents = True
    End If
End Sub

bin voila je savais bien que ct possible et la une formule pas longue et efficace

merci bcq de votre aide