VBA sur Userform comparant une valeur dans une listbox à une valeur sur une feuille

Public aa
Public mem1 As Boolean

Private Sub UserForm_Initialize()
C3.Visible = 0: C4.Visible = 0
End Sub

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'à la sortie de la TextBox5
Dim id As String 'déclare la variable id (IDentifiant)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)

If Me.TextBox5.Value = "" Then Exit Sub 'si la TextBox5 est vide, sort de la procédure
id = Me.TextBox5.Value 'définit l'identifiant id
With Sheets("COMP") 'prend en compte l'onglet "COMP"
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A) de l'onglet
    Set pl = .Range("A2:D" & dl) 'définit la plage pl
    .Range("A1").AutoFilter 'lance le filtre automatique
    .Range("A1").AutoFilter Field:=1, Criteria1:=id 'filtre la colonne 1 avec l'identifiant id comme critère
    Me.ListBoxPage2.List = pl.SpecialCells(xlCellTypeVisible).Value 'alimente la listbox "ListBoxPage2"
    .Range("A1").AutoFilter 'annule le filtre automatique
End With 'fin de la prise en compte de l'onglet "COMP"
End Sub

Private Sub ListBoxPage2_Click() 'au clic dans la listbox "ListBoxPage2"
Dim i As Byte 'déclare la variable i (Incrément de textboxes)

With Me.ListBoxPage2 'prend en compte la listbox "ListBoxPage2"
    For i = 6 To 8 'boucle sur les 3 textboxes
        Me.Controls("TextBox" & i).Value = .Column(i - 5, .ListIndex) 'récupère la valeur de l'élément sélectionné
    Next i 'prochaine textbox de la boucle
End With 'fin de la prise en compte de la listbox "ListBoxPage2"
End Sub

Private Sub T5_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'à la sortie de la textbox T5
Dim id As String 'déclare la variable id (IDentifiant)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)

If Me.T5.Value = "" Then Exit Sub 'si la T5 est vide, sort de la procédure
id = Me.T5.Value 'définit l'identifiant id
With Sheets("COMP") 'prend en compte l'onglet "COMP"
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A) de l'onglet
    Set pl = .Range("A2:D" & dl) 'définit la plage pl
    .Range("A1").AutoFilter 'lance le filtre automatique
    .Range("A1").AutoFilter Field:=1, Criteria1:=id 'filtre la colonne 1 avec l'identifiant id comme critère
    Me.ListBox1.List = pl.SpecialCells(xlCellTypeVisible).Value 'alimente la listbox1
    Me.ListBoxPage2.List = pl.SpecialCells(xlCellTypeVisible).Value 'alimente la listbox "ListBoxPage2"
    .Range("A1").AutoFilter 'annule le filtre automatique
End With 'fin de la prise en compte de l'onglet "COMP"
End Sub

Private Sub T5_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'à la sortie de la T5
Dim id As String 'déclare la variable id (IDentifiant)
Dim dl As Integer 'déclare la variable dl (Dernière Ligne)
Dim pl As Range 'déclare la variable pl (PLage)

If Me.T5.Value = "" Then Exit Sub 'si la T5 est vide, sort de la procédure
id = Me.T5.Value 'définit l'identifiant id
With Sheets("COMP") 'prend en compte l'onglet "COMP"
    dl = .Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée dl de la colonne 1 (=A) de l'onglet
    Set pl = .Range("A2:D" & dl) 'définit la plage pl
    .Range("A1").AutoFilter 'lance le filtre automatique
    .Range("A1").AutoFilter Field:=1, Criteria1:=id 'filtre la colonne 1 avec l'identifiant id comme critère
    On Error Resume Next
    Me.ListBoxPage2.List = pl.SpecialCells(xlCellTypeVisible).Value 'alimente la listbox "ListBoxPage2"
    Me.ListBox1.List = pl.SpecialCells(xlCellTypeVisible).Value 'alimente la listbox "ListBoxPage2"
    On Error GoTo 0
    .Range("A1").AutoFilter 'annule le filtre automatique
End With 'fin de la prise en compte de l'onglet "COMP"
End Sub

If Err <> 0 Then MsgBox "L'identifiant sélectionné n'apparaît pas dans la liste"