Bonjour le forum

lors du transfère des données selon les critères d'une feuille a l'autres feuille j'ai un message d'erreur indiqué au titre de ce poste dans la partie coloré voici le code :

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
40
41
Sub imporg()
Dim montab As Variant, recherche As String
Dim plage As Range, Crit As Variant
Dim t As Integer
Dim VarDerLigne As Integer
Dim VarPlageList As String
Dim cel As Range


If Feuil1.OptionButton1 = True Then
recherche = "01"
End If
VarDerLigne = Sheets("Imprim").Range("A65536").End(xlUp).Row
VarPlageList = Sheets("Imprim").Range("A8:C" & VarDerLigne).Address

 'Feuil1.ListBox2.Clear
With Feuil6 'Sheets("Recouvrement")
    'je recherche dans ma colonne A à partir de A2 jusqu'à la dernière ligne utilisée
    Set plage = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row)
        'pour chaque cellule de ma plage
        For Each cel In plage
            If cel <> "" Then
                'je découpe ma chaine de caractere en fonction des /
                montab = Split(cel.Value, "/")
                Crit = Split(cel.Value, "/")
                'ici montab(2) correspond bien à 2012
                'donc je met dans ma listbox la valeur de la colonne C correspondante
                On Error Resume Next
                If montab(1) = recherche And Me.TextBox1.Value = Crit(2) Then
                On Error GoTo 0
                 With Feuil2
                .Range("A" & VarPlageList) = cel.Offset(0, 0).Value
                .Range("B" & VarPlageList) = cel.Offset(0, 2).Value
                .Range("C" & VarPlageList) = cel.Offset(0, 4).Value
                
End With
End If
End If
Next cel
End With
End Sub

Merci d'avance