accès refusé

bjr à tous!
j'affiche des colonnes avec des titres dans une list box.
Ensuite, je scan une feuille exel pour remplir un tableau. Ce tableau ("tabinter") doit venir s'ajouter à ma list box pour qu'au final, il apparaisse dans ma list box, un beau tableau de données qui sont rangées dans des colonnes avec des titres.
Seulement, quand je fais " list box.additem (tabinter) ", il me dis "erreur d'execution 70 : accès refusé " !!!
Quel désaroi!!! Je ne comprend pas!
Pouvez vous m'aidez?

voici mes 2 fonctions qui affichent tout d'abord les titres dans ma list box
puis mon tableau


1e fonction:

Function TitleTab()


If BpSyst.Caption = "actionneur" Then 'Système "actionneur"
AffSol.ColumnCount = 8
AffSol.ColumnWidths = 100
UserForm1.AffSol.ColumnHeads = True
UserForm1.AffSol.RowSource = "C7:J7"
Else 'Système "circuit"
If MultiPage1.Value = 0 Then 'Etat = "Avant"
AffSol.ColumnCount = 8
AffSol.ColumnWidths = 100
UserForm1.AffSol.ColumnHeads = True
UserForm1.AffSol.RowSource = "C4:J4"
Else 'Etat = "Après"
AffSol.ColumnCount = 5
AffSol.ColumnWidths = 100
UserForm1.AffSol.ColumnHeads = True
UserForm1.AffSol.RowSource = "K4:O4"
End If
End If

End Function


2e fonction:

Function Affichage()

'pipo = LBsyst.List(LBsyst.ListIndex)

Dim TabInter As Variant, TabSyst As Variant
Dim PosLig As Integer
Dim VarChoixSyst As String
Dim IndexTab As Integer

If FlagSyst = True Then VarChoixSyst = "circuit" Else VarChoixSyst = "actionneur"

PosLig = 10
IndexTab = 0
ReDim TabInter(10, 7)
j = 0


Do While Worksheets("Feuil7").Cells(PosLig, 2).Value <> ""
If Cells(PosLig, 1) = VarChoixSyst And Cells(PosLig, 2) = LBsyst.List(LBsyst.ListIndex) Then

For i = 3 To 10
TabInter(j, IndexTab) = Worksheets("Feuil7").Cells(PosLig, i).Value
IndexTab = IndexTab + 1
Next i
PosLig = PosLig + 1
j = j + 1
IndexTab = o
Else
PosLig = PosLig + 1
End If
Loop

AffSol.AddItem (TabInter)

End Function


j'espère avoir était assez clair pour que vous compreniez bien tout...
je vous remercie de passer qlq minutes pour moi!
sincerly,
tio bellou