XL 2016 Supprimer une ligne d'un tableau structuré

[ReneDav14000]

Bonjour le forum et très bonne année à vous toutes et tous,
J'ai créé un formulaire qui me permet d'aller chercher un Nom d'employé(e) dans un tableau structuré et d'afficher les informations le ou la concernant.
Ensuite, en cliquant sur le bouton OK l'administrateur pourra le supprimer. Cependant, je n'arrive pas à supprimer la ligne ainsi que les données qui s'y trouvent et de faire remonter les autres lignes après la suppression afin qu'il n'y ait pas un blanc au milieu du tableau. Pouvez-vous m'apporter votre aide s'il vous plait ?
Merci par avance
Voici mon code :

Private Sub ButOk_Click()
Dim Ligne As Long, Cel As Range

        If Trim(Me.CombCode) = "" Then
            MsgBox "Vous n'avez sélectionné aucun(e) employé(e) !"
            Exit Sub
        End If
        
                With Sheets("Agents")
                
                        Set Cel = .Columns("A").Find(What:=Me.CombCode, LookIn:=xlValues, LookAt:=xlWhole)
                        
                            If Not Cel Is Nothing Then
                                Ligne = Cel.Row
                                
                                    If MsgBox("voulez-vous supprimer les informations concernant " & Me.TextBox1.Value & " " & Me.TextBox3.Value & " " & Me.TextBox4.Value & "?", vbQuestion + vbYesNo, "Suppression d'un(e) employé(e)") <> vbYes Then Exit Sub
                                    
                                        "METTRE LE CODE DE SUPPRESSION ICI"
                                    
                                    End If
                End With
                
                Init_Combo
End Sub

 

[sylvanu]

Bonjour RenéDav,
Si votre TDS s'appelle Tableau1 et que la ligne que vous voulez supprimer s'appelle "Ligne" alors la suppression de la ligne peut se faire avec :

[Tableau1].ListObject.ListRows(Ligne).Delete

 

[ReneDav14000]

Bonjour RenéDav,
Si votre TDS s'appelle Tableau1 et que la ligne que vous voulez supprimer s'appelle "Ligne" alors la suppression de la ligne peut se faire avec :

[Tableau1].ListObject.ListRows(Ligne).Delete

D'accord merci pour votre réponse