Probleme simple code vb sur excel

BBonjour, j'ai besoin d'aide, je debute en vb, et je pense avoir de petite erreur de plus un message m'affiche end sub attendu quand je clic sur le bouton dans mon tableau excel

http://hpics.li/62fdfe1

j'ai realiser un formulaire et en fin un tableau qui recpitule quelque informations du formulaire, le bouton afficher tableau doit permettre d'afficher dans ce recapitulatif les informations du dessus
voici mon code ... MERCI

Private Sub Calcul1_Click()
nom_employes = Cells("8, 2").Value
cout_kms = Cells("30, 4").Value
cout_total = Cells("35, 3").Value

Call position(lig)

'Afficher
Cells(40, 1).Value = nom_employes
Cells(40, 2).Value = cout_kms
Cells(40, 3).Value = cout_total
End Sub

Private Sub AFFICHERTABLEAU_Click()
Sub position(lig As Integer)
Dim lu As String
lig = 40
lu = Feuil1.Cells(lig, 1)
While lu <> ""
lig = lig + 1
lu = Feuil1.Cells(lig, 1)
Wend
End Sub