Bouton modifier textbox et combobox

bonjour atous

j'ai une macro pour modifier des fiches

Private Sub CommandButton1_Click()    'modifier ajouter
    Dim T(), c As Long

If LCou = 0 Then
   LCou = CBL.PlgTablo.Rows.Count
   With CBL.PlgTablo.Rows(LCou): .Copy: .Insert: End With
   LCou = LCou + 1: End If
ReDim T(1 To 1, 1 To 7)
For c = 1 To 7: T(1, c) = Me("TextBox" & c).Text: Next c
CBL.PlgTablo.Rows(LCou).Resize(, 7).Value = T

CBL.Actualiser

MsgBox "MODIFICATIONS EFFECTUEES."
    Unload Me
    Userform10.Show

End Sub

et je voudrais ajouter 3 combobox mais je n'y arrive pas .

Merci de votre aide

re Bonjour

Avec un extrait du fichier ce sera peut etre plus facile.

Merci de votre aide

bonjour

Personne ne peux m'aider?.