Promeble avec Macro

Bonjour, J'ai un probleme avec une macro j'aimerais changer les chiffre en lettre mais ceci m'indique l'erreur erreure de type : 13 Merci beaucoup de votre aide





rivate Sub form_Initialize()

Dim Today As Date 'Déclare les variables.
Dim ITEM As Integer

Today = Now 'Initialise les variables
ITEM = 0

ComboBox1.Clear 'Initialise les champs du formulaire
ComboBox2.Clear
ComboBox3.Clear
ComboBox4.Clear
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""

For i = 2 To 1048576 'Initialise le prochain numéro d'item

If Sheets("Données").Cells(i, 1).Value = "" Then
ITEM = i
Exit For
End If

Next

TextBox1.Value = ITEM - 1 'Initialise le champ Item dans le formulaire

ComboBox1.AddItem "100" 'Liste des équipes ** ICI J'AIMERAIS METTRE A LA
ComboBox1.AddItem "110" PLACE DE 100 = CHAUD **
ComboBox1.AddItem "150"
ComboBox1.AddItem "200"
ComboBox1.AddItem "250"
ComboBox1.AddItem "260"
ComboBox1.AddItem "500"
ComboBox1.AddItem "510"
ComboBox1.AddItem "520"
ComboBox1.AddItem "525"
ComboBox1.AddItem "530"
ComboBox1.AddItem "535"
ComboBox1.AddItem "550"
ComboBox1.AddItem "600"
ComboBox1.AddItem "610"
ComboBox1.AddItem "650"
ComboBox1.AddItem "700"
ComboBox1.AddItem "750"
ComboBox1.AddItem "800"
ComboBox1.AddItem "850"
ComboBox1.AddItem "900"
ComboBox1.AddItem "950"

OptionButton1.Value = False 'Initialise les bouton option et la case à cocher
OptionButton2.Value = False

ComboBox3.AddItem "Décès" 'Liste des type d'absence
ComboBox3.AddItem "Fête Nationale"
ComboBox3.AddItem "Maladie"
ComboBox3.AddItem "Mobile"
ComboBox3.AddItem "Obligation fam."
ComboBox3.AddItem "Pers.non payé"
ComboBox3.AddItem "Prise BA"
ComboBox3.AddItem "Prise "
ComboBox3.AddItem "Prise férié"
ComboBox3.AddItem "Prise relève"
ComboBox3.AddItem "Prise suppl."
ComboBox3.AddItem "Sans solde"
ComboBox3.AddItem "Vacances"
ComboBox3.AddItem "Autres"

TextBox3.Value = " --- Approuvé par le superviseur --- " 'Texte par défault

ComboBox4.AddItem " " 'Liste des gestionnaires
ComboBox4.AddItem " "
ComboBox4.AddItem " "

Label3.Caption = "Pas sauvegardé" 'Initialise l'état de la sauvegarde

End Sub

'------------------------------------------------------
'
'Fonction: Initialise le champ des techniciens suite à
' à la sélection de l'équipe
'Par:
'Date : 2009-02-17
'
'------------------------------------------------------

Private Sub ComboBox1_Click()

ComboBox2.Clear 'Efface la liste de choix précédente

Dim NOM As String 'Définit les variables
Dim Equipe As Integer

NOM = "-" 'Initialise les variables
Equipe = ComboBox1.Value ***ICI ME DONNE UNE ERREUR? **
For c = 2 To 250 'Remplit le champ nom technicien
If Equipe = Sheets("Infos_Employé").Cells(c, 3).Value Then
NOM = Sheets("Infos_Employé").Cells(c, 2).Value
ComboBox2.AddItem NOM
End If
Next