Problème vba- exel affichage de données

salut,

voilà mon algorithme:

'ceci est un commentaire
Sub Facruration_Click() 'nom du programme ; marque le début du programme
'déclaration des variable
'string <-> chaîne de caractères
'integer <-> entier
'Double <-> réel
'Boulean <-> booléen
Dim num_c As String
Dim nb_s As Integer
Dim heure_a, heure_d As Double
Dim duree_t, duree_f As Double
Dim cout_h, cout_f As Double
Dim pos As Integer
'affectation d'une valeur à la constante
cout_h = 15
'saisie du nouméro
num_c = InputBox("Saisir le numéro", , , 100, 100)
'saisie de l'heure 1
heure_a = InputBox("Saisir l'heure", , , 100, 100)
'saisie de l'heure 2
heure_d = InputBox("Saisir l'heure", , , 100, 100)
'saisie du nombre
nb_s = InputBox("saisir le nombre", , , 100, 100)
'calcul de la durée t
duree_t = (heure_d - heure_a) * nb_s
'aajustement des heures f
If duree_t > 5 Then
duree_f = Int(duree_tot)
Else
duree_f = duree_t
End If
'calcul du coût
cout_f = cout_h * duree_t
If cout_f > 100 Then
cout_f = 100
Else
cout_f = cout_f
End If
'recherche de la ligne sur laquelle se placeront les éléments affichés
Call Position(pos)
'affichage (transfert)des valeurs des variables dans la feuille de calcul
Cells(pos, 1).Value = num_c
Cells(pos, 2).Value = heure_a
Cells(pos, 3).Value = heure_d
Cells(pos, 4).Value = nb_s
Cells(pos, 5).Value = duree_t
Cells(pos, 6).Value = duree_f
Cells(pos, 7).Value = cout_f

End Sub 'marque la fin du programme

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

la variable "poss" est dans l'algorithme a la fin des variables

mon problème est que lorsque je veut exécuter j'ai le message: "erreur de compilation: sub ou function non définie"

aidez moi!!

salut,

merci pour la remarque, j'ai compris ce que tu voulais dire.

sa marche maintenant que je l'ai affecter a une valeur

Merci