Difficulté d'affichage sur une feuille excel programmation vba

bjr à tous voici tous les codes ke jè écris pour développer une application vba en Excel qui permettra de gérer les consommables. mais jè des problèmes pour pouvoir afficher après validation les saisies que je fais dans le Userform1 et en plus il me signale une erreur dans le code sur mon commandbouton que jè renommé VALIDER.
voici le codes en question. aidez moi à trouver une solution pour mon application car je dois la rendre le 20 février 2014. je compte sur vous. je vous signale que mon userform1 contient 6 combobox et 1 textbox en plus du bouton VALIDER.

Private Sub CommandButton1_Click()
Dim ctr As Control
Dim r As Integer
Dim t As Integer
Dim landry As Integer

With Worksheets("feuil1")
landry = .Range("A65536").End(x1up).Row + 2
landry = .Range("B65536").End(x1up).Row + 2
landry = .Range("C65536").End(x1up).Row + 2
landry = .Range("D65536").End(x1up).Row + 2
landry = .Range("E65536").End(x1up).Row + 2
landry = .Range("E65536").End(x1up).Row + 2

For Each ctr In UserForm1.Controls
r = Val(ctrl.Tag)
If r > 0 Then Feuil1.Cells(landry, r) = ctrl
Next
Feuil1.Cells(landry, 2) = Val(ComboBox1)
Feuil1.Cells(landry, 2) = Val(ComboBox2)
Feuil1.Cells(landry, 2) = Val(ComboBox3)
Feuil1.Cells(landry, 2) = Val(ComboBox4)
Feuil1.Cells(landry, 2) = Val(ComboBox5)
Feuil1.Cells(landry, 2) = Val(ComboBox6)

End With
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
ComboBox5 = ""
ComboBox6 = ""
End
End Sub

Private Sub UserForm_Activate()
If NOUVEAU = True Then ComboBox1 = WorksheetFunction.Max(Feuil1.Range("A2:A10000")) + 2
If NOUVEAU = True Then ComboBox2 = WorksheetFunction.Max(Feuil1.Range("B2:B10000")) + 2
If NOUVEAU = True Then ComboBox3 = WorksheetFunction.Max(Feuil1.Range("C2:C10000")) + 2
If NOUVEAU = True Then ComboBox4 = WorksheetFunction.Max(Feuil1.Range("D2:D10000")) + 2
If NOUVEAU = True Then ComboBox5 = WorksheetFunction.Max(Feuil1.Range("E2:E10000")) + 2
If NOUVEAU = True Then ComboBox6 = WorksheetFunction.Max(Feuil1.Range("F2:F10000")) + 2


End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
'ComboBox1.AddItem "Masculin"
'ComboBox1.AddItem "Feminin"

Dim tablo, landry As Integer
With Feuil2
landry = .Range("A65536").End(xlUp).Row
tablo = .Range("A2:A" & landry)
ComboBox1.List = tablo
End With
With Feuil2
landry = .Range("B65536").End(xlUp).Row
tablo = .Range("B2:B" & landry)
ComboBox2.List = tablo
End With
With Feuil2
landry = .Range("C65536").End(xlUp).Row
tablo = .Range("C2:C" & landry)
ComboBox3.List = tablo
End With

With Feuil2
landry = .Range("D65536").End(xlUp).Row
tablo = .Range("D2:D" & landry)
ComboBox4.List = tablo
End With

With Feuil2
landry = .Range("E65536").End(xlUp).Row
tablo = .Range("E2:E" & landry)
ComboBox5.List = tablo
End With

With Feuil2
landry = .Range("F65536").End(xlUp).Row
tablo = .Range("F2:F" & landry)
ComboBox6.List = tablo
End With

End Sub