Comment Modifier ce Code pour Supprimer une Ligne dans la Feuille

Private Sub CommandButton2_Click() 'Ajoute liste de N° dans la base 
'Depuis Userform1
Dim ligne As Integer
Dim NDF As String
Dim XlApp As Object, XlDoc As Object
Dim Ouvert As Boolean

    Application.DisplayAlerts = False
    NDF = ActiveDocument.Path & FichierCentral
    On Error Resume Next
    
    Set XlApp = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set XlApp = CreateObject("Excel.Application")
        NDF = XlApp.WorksheetFunction.Substitute(NDF, "\Doc\", "\")
        Set XlDoc = XlApp.Workbooks.Open(NDF, ReadOnly:=False)
        Ouvert = False
    Else
        NDF = XlApp.WorksheetFunction.Substitute(NDF, "\Doc\", "\")
        Set XlDoc = GetObject(NDF)
        If Not XlApp.Workbooks(NDF) Is Nothing Then Set XlDoc = XlApp.Workbooks.Open(NDF, ReadOnly:=False)
        Ouvert = True
    End If
    Err.Clear
    
    With XlApp
        .Visible = False
        '****
         [COLOR="Red"] 'Dim PremNumChq, NbChq, Cel, Indic As Integer
          ' PremNumChq = TextBox1
          'NbChq = TextBox2

        'With .ActiveWorkbook.Sheets("Clients")
        'Indic = Right(TextBox1, 3)
        ' For Cel = 1 To NbChq + 1
        '.Cells(Cel, 6) = Format(PremNumChq, "0000/000")
        ' Indic = Indic + 1
        'PremNumChq = Left(TextBox1, 5) & Indic
        'Next Cel
        End With[/COLOR]
            .Visible = Ouvert
        With .Application
            .DisplayAlerts = False
            .Save
            If Not Ouvert Then .Quit
            .DisplayAlerts = True
        End With
    End With
    Set XlDoc = Nothing
    Set XlApp = Nothing
    Application.DisplayAlerts = True
    'InsèreDonnées
    'Unload Me
End Sub