XL 2016 Supprimer une ligne d'un tableau structuré

ReneDav14000

XLDnaute Occasionnel
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 :
VB:
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
 

Statistiques des forums

Discussions
313 296
Messages
2 096 923
Membres
106 788
dernier inscrit
Pragmatis