VBA - tableau - 'erreur 424 objet requis'

Bonjour,
j'ai ce bout de code correspondant à l'action d'un bouton de commande.
Lorsque l'utilisateur clique, le programme doit ajouter à une listbox quelques éléments de la ligne sélectionnée (cette partie marche) et en meme temps, rajouter dans un tableau (invisible à l'utilisateur) quelques autres éléments de cette meme ligne . Je ne comprends pas pourquoi l'erreur '424 objet requis' apparait lors de la ligne suivant le End If.
(pour info le tableau à remplir est un 40x8, la série de If au début sert à aller chercher la bonne colonne à copier)
voila le code,
merci beaucoup d'avance

Private Sub ValiderCote_Click()

Dim d As String
Dim n As String

Workbooks("Base FT PI DFI 3.xls").Activate

L = ActiveCell.Row
d = Cells(L, 59).Value
n = Cells(L, 9).Value
ListBox1.AddItem (d & "(" & n & ")")
Nb_ligne = ListBox1.ListCount

Dim tableau(1 To 40, 1 To 8)
For p = 1 To 8
If p = 1 Then
c = 3
Else
If p = 2 Then
c = 4
Else
If p = 3 Then
c = 59
Else
If p = 4 Then
c = 9
Else
If p = 5 Then
c = 10
Else
If p = 6 Then
c = 12
Else
If p = 7 Then
c = 13
Else
If p = 8 Then
c = 15
End If
End If
End If
End If
End If
End If
End If
End If
tableau(Nb_ligne, p) = Activesheets.Cells(L, c)
p = p + 1
MsgBox (" tableau (" & Nb_ligne & "," & p & ") = " & tableau(Nb_ligne, p))
Next p