Bonjour!
je cherche à remplir un tableau à partir d'un classeur.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
'déclaration de mes variables
Dim MonTableau As Variant, cpt2 As Long, cpt1 As Long
Dim MonTableau1 As Variant
Dim MonTableaux_Final(10000) As Variant
'initialisation de mes tableaux
MonTableau1 = Sheets("Feuil2").Range("A8 : I47").Value
MonTableau = Range("A2 : B203").Value

'cpt1 = 1
Dim index_F As Integer
index_F = 0

'**** parcour mon tableau à la dimension "1" du plus petit au plus grand indice ****
For cpt2 = LBound(MonTableau, 1) To UBound(MonTableau, 1)



'*** si les deux cellules sont égale alors j'ajoute 1 à mon index ***
If Range("A" & cpt2).Value = Range("B" & cpt2).Value Then
index_F = index_F + 1
End If

'*** en fonction de l'indice je mets mon faisceau dans un des tableaux ***
Select Case index_F
Case Is = 1
For cpt1 = LBound(MonTableau1, 1) To UBound(MonTableau1, 1)

MonTableau1(2, cpt1) = MonTableau(1, cpt2)


Next


End Select


Next
    
End Sub
quand j'envois le code il m'indique le code erreur 9 .. et m'indique cette ligne.
merci à tout ceux qui y réfléchissent!!!