Recuperer la valeur d'une textbox lors de l'initialisation.

Salut le forum,

Lors de l'initialisation de ma page, je fais appel à une textbox pour que l'utilisateur saisisse un chiffre. Le pb c'est que je me mange dans la tete un erreur de type 13 et je ne sais pas pkoa. Ci joint le code source !

INITIALIZE :
-------------------------------------------------
Option Explicit
Dim Pdts As Integer
Private Sub Workbook_Open()
Dim I As Integer
Dim Feuille As Worksheet

Application.ScreenUpdating = False

Feuil1.Range("c1:ee27").Delete
Feuil2.Range("c1:ee27").Delete

Combien.Show

Pdts = Combien.TxtCombien.Value

If Pdts > 12 Then
MsgBox "Le Mapping risque d'être illisible !! " & Pdts & " points !!!", vbExclamation, "Attention..."
End If


For I = 1 To Pdts
--------------------------------------

USERFORM :
--------------------------------------
Private Sub Image1_Click()
If Not IsNumeric(TxtCombien) Then
MsgBox "Sasie non numérique !! Veuillez recommencer S.V.P. ;-)"
Else
'Unload Me
Exit Sub
End If
End Sub
Private Sub UserForm_Activate()
TxtCombien.Value = ""
End Sub
--------------------------------------

Merci d'avance de votre aide car là, je ne vois pas !! ??

Creepy