Erreur de resultat avec la fonction sum() sous VBA

Bonjour à tous

voici mon code


Sub B_calcul_bon_de_commande()
' *********************************************************************************************************************************************
' * routinne du calcul du bon de commande *
' * 1 addition des zones : *
' * TT_TTC_four,TT_TTC_sanitaire,TT_TTC_accessoire,TT_TTC_dossier,TT_TTC_pose,TT_TTC_electromenager,TT_TTC_plan,TT_TTC_autre *
' * puis mettre le resultat dans total_ttc *
' * 2 calcul des prix HT en fonction de la tva 1 ou 2 : *
' * TT_HT_four,TT_HT_sanitaire,TT_HT_accessoire,TT_HT_dossier,TT_HT_pose,TT_HT_electromenager,TT_HT_plan,TT_HT_autre *
' *********************************************************************************************************************************************
Dim Resulat As Integer 'definition de la variable resultat comme nombre integral
' *********************************
' * Phase 1 *
' *********************************
Resultat = Application.WorksheetFunction.Sum(TT_TTC_sanitaire, TT_TTC_meuble, TT_TTC_accessoire, TT_TTC_dossier, TT_TTC_pose, TT_TTC_electromenager, TT_TTC_plan, TT_TTC_autre)
'
Range("total_ttc").Value = Resultat
End Sub

mon résultat est 0 alors que il y a 1000.00 € dans chaque case que j ai nome TT_TTC_ etc
je devrais avoir 8000.00 €

Merci d'avance pour votre aide