XL 2021 VBA et UserForm

Sub Alpha()
    With ActiveWorkbook.Worksheets("Annuaire").ListObjects("TData") 'avec la table "TData"
        .Sort.SortFields.Clear 'on supprime les tris en cours
        .Sort.SortFields.Add2 Key:=.ListColumns("Nom").Range, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 'on ajoute un tri sur la colonne "Nom"
        With .Sort 'on applique le filtre
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End With
End Sub

Sub Effacer()
    With Sheets("Ma liste").ListObjects("t_maliste")
        .DataBodyRange.Clear 'on efface le contenu
        .Resize Range("$A$1:$J$2") 'on redimensionne la table avec juste une ligne
    End With
End Sub

Option Explicit
Sub Alpha()
Dim Cel As Range
    With Worksheets("Annuaire").ListObjects("TData").Sort
        .SortFields.Clear
        .SortFields.Add2 Key:=Range("TData[Nom]"), _
            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Set Cel = [Tdata[Nom]].ListObject.Range.Find("", , xlValues, xlWhole)
    If Cel Is Nothing Then
        [Tdata[Nom]].ListObject.ListRows.Add
        Set Cel = [Tdata[Nom]].ListObject.Range.Find("", , xlValues, xlWhole)
    End If
    Cel.Select
End Sub
Sub Effacer_Annuaire()
    If Not [Tdata].ListObject.DataBodyRange Is Nothing _
    Then [Tdata].ListObject.DataBodyRange.Delete
End Sub
Sub Effacer_Liste()
    If Not [T_maliste].ListObject.DataBodyRange Is Nothing _
    Then [T_maliste].ListObject.DataBodyRange.Delete
End Sub

Private Sub SaveMe()
   
    Select Case MsgBox("Voulez-vous" & vbLf & vbLf & _
        "(oui) sauvegarder ce classeur uniquement" & vbLf & _
        "(non) le sauvegarder également dans L3 et l6" _
        , vbCritical + vbYesNoCancel)
    Case vbYes
        ThisWorkbook.Save
    Case vbNo
        ThisWorkbook.Save
        Application.DisplayAlerts = False ' pour ne pas avoir la demande de remplacement
        ThisWorkbook.SaveAs "C:\sauvegardes-biblio\" & "L3.xlsm" 'Changer le chemin
        ThisWorkbook.SaveAs "F:\Bibliotheque\" & "L6.xlsm" 'Changer le chemin
    End Select
   
End Sub