Userform, GROS PROBLEME en VBA sur Excel

Bonjour,

je travaille sur un Userform, il n'est pas terminé, en VBA sur Excel.
J'ai un probleme avec mon Userform pour trier de l'inventaire , il plante si je l'utilise pour 2 produits sans le fermer.
Je veux m'en servir pour trier de l'inventaire et ajuster les quantités il fait référence a Feuil1 qui contient l'inventaire.
nom du userform : userform1. il fait référence a 2 marcros que j'ai mise en bas dans le message. si vous pouvez m'aider ca serait grandement apprécié. merci. Vince.
code :


Private Sub ComboBoxDESC_Change()
CRITERE = ComboBoxDESC.Value
COLCR = 2
'Remplir le tableau
Dim L As Long
Dim N As Long
Dim TABL1(1000, 40) As Variant
Dim TABL2(1000, 40) As Variant

L = 900 ' NB LIGNES DANS LE TABLEAU Inventaire
N = 6 ' NB COLONNES DANS LE TABLEAU Inventaire

For LL = 0 To L
For CC = 0 To N
TABL1(LL, CC) = Sheets("FEUIL2").Cells((LL + 1), (CC + 1))
Next CC
Next LL

BB = Application.Run("FILTRE", TABL1, CRITERE, COLCR)
For LL = 0 To L
For CC = 0 To N
TABL1(LL, CC) = Sheets("FEUIL2").Cells((LL + 1), (CC + 1))
Next CC
Next LL
ComboBoxGRADE.Clear
For I = 1 To L
If TABL1(I, 3) <> 0 Then
If TABL1(I, 3) <> TABL1((I - 1), 3) Then
ComboBoxGRADE.AddItem TABL1(I, 3)
End If
End If
Next
End Sub

Private Sub ComboBoxGRADE_Change()
CRITERE = ComboBoxGRADE.Value
COLCR = 3
'Remplir le tableau
Dim L As Long
Dim N As Long
Dim TABL1(1000, 40) As Variant
Dim TABL2(1000, 40) As Variant

L = 900 ' NB LIGNES DANS LE TABLEAU Inventaire
N = 6 ' NB COLONNES DANS LE TABLEAU Inventaire

For LL = 0 To L
For CC = 0 To N
TABL1(LL, CC) = Sheets("FEUIL2").Cells((LL + 1), (CC + 1))
Next CC
Next LL

BB = Application.Run("FILTRE", TABL1, CRITERE, COLCR)
For LL = 0 To L
For CC = 0 To N
TABL1(LL, CC) = Sheets("FEUIL2").Cells((LL + 1), (CC + 1))
Next CC
Next LL
ComboBoxLONG.Clear
For I = 1 To L
If TABL1(I, 3) <> 0 Then
If TABL1(I, 4) <> TABL1((I - 1), 4) Then
ComboBoxLONG.AddItem TABL1(I, 4)
End If
End If
Next

End Sub

Private Sub ComboBoxLONG_Change()
Dim CRITEREL As Long
CRITEREL = 0
CRITEREL = ComboBoxLONG.Value

COLCR = 4
'Remplir le tableau
Dim L As Long
Dim N As Long
Dim TABL1(1000, 40) As Variant
Dim TABL2(1000, 40) As Variant

L = 900 ' NB LIGNES DANS LE TABLEAU Inventaire
N = 6 ' NB COLONNES DANS LE TABLEAU Inventaire

For LL = 0 To L
For CC = 0 To N
TABL1(LL, CC) = Sheets("FEUIL2").Cells((LL + 1), (CC + 1))
Next CC
Next LL

BB = Application.Run("FILTRE", TABL1, CRITEREL, COLCR)
For LL = 0 To L
For CC = 0 To N
TABL1(LL, CC) = Sheets("FEUIL2").Cells((LL + 1), (CC + 1))
Next CC
Next LL
'ComboBoxLONG.Clear
'For I = 1 To L
' If TABL1(I, 3) <> 0 Then
' If TABL1(I, 4) <> TABL1((I - 1), 4) Then
' ComboBoxLONG.AddItem TABL1(I, 4)
' End If
' End If
'Next
End Sub

Private Sub CommandButtonANNULER_Click()
Unload Me

End Sub

Private Sub CommandButtonENR_Click()

End Sub

Private Sub OptionButtonC_Click()
If OptionButtonQUINC = True Then
OptionButtonC.Value = False
Else
Dim CRITERE As Variant
CRITERE = "C"
COLCR = 6
'Remplir le tableau
Dim L As Long
Dim N As Long
Dim TABL1(1000, 40) As Variant
Dim TABL2(1000, 40) As Variant

L = 900 ' NB LIGNES DANS LE TABLEAU Inventaire
N = 6 ' NB COLONNES DANS LE TABLEAU Inventaire
For LL = 0 To L
For CC = 0 To N
TABL1(LL, CC) = Sheets("FEUIL2").Cells((LL + 1), (CC + 1))
Next CC
Next LL

BB = Application.Run("FILTRE", TABL1, CRITERE, COLCR)
For LL = 0 To L
For CC = 0 To N
TABL1(LL, CC) = Sheets("FEUIL2").Cells((LL + 1), (CC + 1))
Next CC
Next LL
ComboBoxDESC.Clear
For I = 1 To L
If TABL1(I, 2) <> 0 Then
If TABL1(I, 2) <> TABL1((I - 1), 2) Then
ComboBoxDESC.AddItem TABL1(I, 2)
End If
End If
Next

End If

If 1 = 1 Then
Sheets("FEUIL2").Cells(1, 10) = ComboBoxLONG.Value

End If
End Sub

Private Sub OptionButtonHSS_Click()
If OptionButtonQUINC = True Then
OptionButtonHSS.Value = False
Else
CRITERE = "HSS"
End If
End Sub

Private Sub OptionButtonL_Click()
If OptionButtonQUINC = True Then
OptionButtonL.Value = False
Else
CRITERE = "L"
End If
End Sub

Private Sub OptionButtonFL_Click()
If OptionButtonQUINC = True Then
OptionButtonFL.Value = False
Else
CRITERE = "FL"
End If
End Sub


Private Sub OptionButtonACIER_Click()
ComboBoxDESC.Clear
ComboBoxGRADE.Clear
ComboBoxLONG.Clear


FrameForme.Visible = True

Dim CRITERE As Variant
CRITERE = "ACIER"
COLCR = 1
'Remplir le tableau
Dim L As Long
Dim N As Long
Dim TABL1(1000, 40) As Variant
Dim TABL2(1000, 40) As Variant

L = 900 ' NB LIGNES DANS LE TABLEAU Inventaire
N = 6 ' NB COLONNES DANS LE TABLEAU Inventaire
AA = Application.Run("REMPLIR", TABL1)
'TRIER
For LL = 0 To L
For CC = 0 To N
TABL1(LL, CC) = Sheets("FEUIL2").Cells((LL + 1), (CC + 1))
Next CC
Next LL
BB = Application.Run("FILTRE", TABL1, CRITERE, COLCR)
For LL = 0 To L
For CC = 0 To N
TABL1(LL, CC) = Sheets("FEUIL2").Cells((LL + 1), (CC + 1))
Next CC
Next LL
ComboBoxDESC.Clear
For I = 1 To L
If TABL1(I, 3) <> 0 Then
If TABL1(I, 2) <> TABL1((I - 1), 2) Then
ComboBoxDESC.AddItem TABL1(I, 2)
End If
End If
Next
End Sub

Private Sub OptionButtonPL_Click()
If OptionButtonQUINC = True Then
OptionButtonPL.Value = False
Else
CRITERE = "PL"
End If
End Sub
Private Sub OptionButtonQUINC_Click()
OptionButtonC.Value = False
OptionButtonL.Value = False
OptionButtonFL.Value = False
OptionButtonPL.Value = False
FrameForme.Visible = False
ComboBoxDESC.Clear
ComboBoxGRADE.Clear
ComboBoxLONG.Clear

Dim CRITERE As Variant
CRITERE = "QUINC"
COLCR = 1
'Remplir le tableau
Dim L As Long
Dim N As Long
Dim TABL1(1000, 40) As Variant
Dim TABL2(1000, 40) As Variant

L = 900 ' NB LIGNES DANS LE TABLEAU Inventaire
N = 6 ' NB COLONNES DANS LE TABLEAU Inventaire
AA = Application.Run("REMPLIR", TABL1)
'TRIER
For LL = 0 To L
For CC = 0 To N
TABL1(LL, CC) = Sheets("FEUIL2").Cells((LL + 1), (CC + 1))
Next CC
Next LL
BB = Application.Run("FILTRE", TABL1, CRITERE, COLCR)
For LL = 0 To L
For CC = 0 To N
TABL1(LL, CC) = Sheets("FEUIL2").Cells((LL + 1), (CC + 1))
Next CC
Next LL
ComboBoxDESC.Clear
For I = 1 To L
If TABL1(I, 2) <> 0 Then
If TABL1(I, 2) <> TABL1((I - 1), 2) Then
ComboBoxDESC.AddItem TABL1(I, 2)
End If
End If
Next
End Sub

Private Sub OptionButtonR_Click()
If OptionButtonQUINC = True Then
OptionButtonR.Value = False
Else
CRITERE = "R"
End If
End Sub

Sub UserForm_Initialize()
Sheets("FEUIL2").Range("A2:G900").Clear
'Remplir le tableau
Dim TABL1(1000, 40) As Variant
Dim TABL2(1000, 40) As Variant

AA = Application.Run("REMPLIR1", TABL1)
End Sub


'''les 2 Macros qui sont dans module1 :


Sub REMPLIR(TABL1 As Variant)
'Macro 1
'Remplir le TABLEAU VIRTUEL DE TRAVAIL
Dim L As Long
Dim N As Long
'Dim TABL1(1000, 40) As Variant
'Dim TABL2(1000, 40) As Variant

L = 900
N = 6
LIN1 = 4 ' LIGNE DÉBUT DU TABLEAU
COL1 = 1 ' COLONNE DÉBUT DU TABLEAU

For LL = 0 To L
For CC = 0 To 5
TABL1(LL, CC) = Sheets("FEUIL1").Cells((LL + LIN1), (CC + COL1))
Sheets("FEUIL2").Cells((LL + 1), (CC + 1)) = TABL1(LL, CC)
Next CC
For CC = 35 To 35
TABL1(LL, CC) = Sheets("FEUIL1").Cells((LL + LIN1), (CC + COL1))
Sheets("FEUIL2").Cells((LL + 1), (7)) = TABL1(LL, CC)
Next CC

Next LL

End Sub
Sub FILTRE(TABL As Variant, CRIT As Variant, COLCR As Variant)
Sheets("FEUIL2").Range("A2:G1000").Clear

Dim L As Long
Dim LTABL1 As Long
Dim N As Long
Dim TABL1(1000, 40) As Variant
Dim TABL2(1000, 40) As Variant
LTABL1 = 1
L = 900
N = 6
LIN1 = 1 ' LIGNE DÉBUT DU TABLEAU
COL1 = 1 ' COLONNE DÉBUT DU TABLEAU


'TRIER TABLEAU

For LL = 0 To L
If TABL(LL, COLCR) = CRIT Then
For CC = 0 To N
TABL1(LTABL1, CC) = TABL(LL, CC)
Sheets("FEUIL2").Cells((LTABL1 + LIN1), (CC + COL1)) = TABL(LL, CC)
Next CC
LTABL1 = LTABL1 + 1

End If
Next LL


End Sub