Remplissage dynamique d'un userform

Bonjour,

Avec un collègue nous sommes entrain de réaliser un projet de gestion de maintenance sous VB mais nous bloquons.

Lorsqu'un élément a été vérifié par un opérateur, celui-ci va cliquer sur un bouton qui va ouvrir un userform (2). Dans ce userform nous devons insérer des données correspondant à des sous-éléments de celui que nous souhaitons valider pour vérification.

Chaque sous élément correspond à un frame contenant 2 textbox et 2 checkbox dans le userform2.

Voici notre code :

Private Sub CommandButton1_Click()

Dim troncon As String
Dim element As String
Dim tableau(1000) As String
Dim index As Integer
Dim Nom As String




Dim id As String

UserForm2.Show

'Déclaration des varaiables

troncon = UserForm1.ListBox1.Text

UserForm2.Tronçon.Text = troncon

    id = Right(troncon, Len(troncon) - 3)
    index = 0
    

    For i = 2 To 1000
    
        If Worksheets("Global").Range("D" & i).Value Like "*/" & id & "/*" Then
            
            tableau(index) = Worksheets("Global").Range("O" & i).Value
            index = index + 1
        
        
        End If
    
    Next i

    If tableau(0) <> "" Then
    Me.UserForm2.Nom1.Caption = tableau(0)
    End If
    
    If tableau(1) <> "" Then
    Me.UserForm2.Nom2.Caption = tableau(1)
    End If
    
    If tableau(2) <> "" Then
    UserForm2.Nom3.Caption = tableau(2)
    End If
    
    If tableau(3) <> "" Then
    UserForm2.Nom4.Caption = tableau(3)
    End If
    
    If tableau(4) <> "" Then
    UserForm2.Nom5.Caption = tableau(4)
    End If
    
    If tableau(5) <> "" Then
    UserForm2.Nom6.Caption = tableau(5)
    End If
    
    If tableau(6) <> "" Then
    UserForm2.Nom7.Caption = tableau(6)
    End If
    
    If tableau(7) <> "" Then
    UserForm2.Nom8.Caption = tableau(7)
    End If
    
    If tableau(8) <> "" Then
    UserForm2.Nom9.Caption = tableau(8)
    End If
    
    DoEvents
    UserForm2.Repaint
    
End Sub

Si quelqu'un pouvait nous éclairer...
D'avance merci.