XL 2019 Evénement click sur listbox

Private Sub listproduct_Click()


Dim Ctrl As Control


If Me.listproduct.ListIndex = -1 Then Exit Sub


'MsgBox (Me.listproduct.List(Me.listproduct.ListIndex, 1))


For Each Ctrl In Me.Controls


If Ctrl.Tag <> "" Then


Ctrl.Value = Feuil1.Cells(Me.listproduct.List(Me.listproduct.ListIndex, 1), CByte(Ctrl.Tag))


End If


Next


End Sub

Private Sub listproduct_Click()
    Dim Ctrl As Control
    ' si aucun élément est sélectionné , je sors
    If Me.listproduct.ListIndex = -1 Then Exit Sub
         ' Pour chaque controle de mon userform
         For Each Ctrl In Me.Controls
            ' si ceux ci ont une propriété tag de défini
            ' rappel dans la propriété tag des éléments à documenter j'ai inscris la colonne de la base de données
            ' exemple le détail est en colonne a la propriété tag : 3
            If Ctrl.Tag <> "" Then
               ' j'affecte au controle la valeur de la base de donnée
               ' exemple dans Me.listproduct.List(Me.listproduct.ListIndex, 1) est rangé la ligne sélectionnée
               ' CByte(Ctrl.Tag) est rangé la colonne de l'objet
               ' donc le controle est affectée à la valeur de la base de donnée intersection ligne/colonne
               ' et cela pour tout les contrôles ayant un tag documenté.
               Ctrl.Value = Feuil1.Cells(Me.listproduct.List(Me.listproduct.ListIndex, 1), CByte(Ctrl.Tag))
            End If
         Next

End Sub