Tri automatique sur une sélection dans une colonne

Je peux le faire manuellement en sélectionnant les cases puis clic droit > trier > trier de A à Z (avec la sélection en cours) mais je souhaiterai automatiser ce processus.

Le but étant de ne pas laisser de cases vides entre deux valeurs, le tri par ordre alphabétique n'est pas obligatoire, mais c'est le seul moyen que j'ai trouvé pour le moment.

A l'utilisation finale, ces cases comporteront des noms. J'ai besoin que si on supprime un nom, ceux d'en dessous remontent tous d'une case (sans suppression de case)

D'après mes recherches ce serait possible avec une formule matricielle mais là je pédale un peu.

Merci à vous,

Keido

Bonjour,

Avec une macro et un bouton et en ajoutant la détection de la dernière ligne utilisée en colonne A

Sub Macro1()
'
' Macro1 Macro
Dim Derligne As Long
With Sheets("Feuil1")
    .Activate
    Derligne = Range("A65536").End(xlUp).Row
End With
'
    Rows("1:" & Derligne).Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A2:A" & Derligne) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A1:A" & Derligne)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Super, merci