Un probleme de excel

bonjour a tous

je me trouve avec on probleme j'ais demander a un ami qui connais VB de m'aider a faire une feuille pour compter les carte de temps des employers de mon travaille, tou marcher bien saufe pour un probleme, j'ais 2 worksheet (oui mon microsoft office est en anglais) ma premiere sapelle emplyer, je rentre les heure des emplyer dans cette worksheet, l'autre sommaire, les donners s'enregistre dans cette worksheet qu'an je fait ctl+alt+C.

sur ma feuille emplyer tou ce calcule bien, mais dans les cells de la feuille sommaire les heures ne s'additione pas, apret arriver a 24h il retombe a 1h qu'an il faut qu'il continue a additioner.

EX:. si dans une semaine l'employer fait 30h bien l cell affiche 6h et non 30h

Le format de mes cells sont [h]:mm:ss

les code en VB, mon ami les a fait pour que je soi cappable de voir la logique et de faire mes modifications, Voici les codes.

Sub FillData()
'
' FillData Macro
' Copier les donnees dans la feuille Sommaire
'
' Keyboard Shortcut: Ctrl+Shift+C
'

' Variable Sommaire
Dim iColSommaireNom As Integer
Dim iColSommaireSem1 As Integer
Dim iColSommaireSem2 As Integer
Dim iColSommaireBonis As Integer
Dim iColSommaireFerie As Integer
Dim iColSommaireFormation As Integer
Dim iColSommaireVacance As Integer
Dim iColSommaireDateTerm As Integer
iColSommaireNom = 2
iColSommaireSem1 = 3
iColSommaireSem2 = 4
iColSommaireBonis = 5
iColSommaireFerie = 6
iColSommaireFormation = 7
iColSommaireVacance = 8
iColSommaireDateTerm = 9

' Variable Employe
Dim iColEmployeNom As Integer
Dim iColEmployeDim As Integer
Dim iColEmployeLun As Integer
Dim iColEmployeMar As Integer
Dim iColEmployeMer As Integer
Dim iColEmployeJeu As Integer
Dim iColEmployeVen As Integer
Dim iColEmployeSam As Integer
Dim iColEmployeBonis As Integer
Dim iColEmployeFerie As Integer
Dim iColEmployeFormation As Integer
Dim iColEmployeVacance As Integer
Dim iColEmployeDateTerm As Integer
Dim iRowEmployeNom As Integer
Dim iRowSemaine1 As Integer
Dim iRowSemaine2 As Integer

iColEmployeNom = 3
iColEmployeDim = 3
iColEmployeLun = 4
iColEmployeMar = 5
iColEmployeMer = 6
iColEmployeJeu = 7
iColEmployeVen = 8
iColEmployeSam = 9
iColEmployeBonis = 11
iColEmployeFerie = 13
iColEmployeFormation = 15
iColEmployeVacance = 17
iColEmployeDateTerm = 19
iRowEmployeNom = 2
iRowEmployeBonis = 6
iRowEmployeFerie = 6
iRowEmployeFormation = 6
iRowEmployeVacance = 6
iRowEmployeDateTerm = 6
iRowSemaine1 = 14
iRowSemaine2 = 25

Dim iRow As Integer
Dim iLigneEmploye As Integer
Dim sNomEmploye As String
Dim dTotSemaine1 As Date
Dim dTotSemaine2 As Date
Dim dTotBonis As Double
Dim dTotFormation As Double
Dim sFerie As String
Dim sVacance As String
Dim sDateTerm As String

iLigneEmploye = 0
dTotSemaine1 = 0
dTotSemaine2 = 0
dTotBonis = 0
dTotFormation = 0
sFerie = ""
sVacance = ""
sDateTerm = ""

sNomEmploye = Worksheets("Employe").Cells(iRowEmployeNom, iColEmployeNom)

' Detecter la ligne de l'employer
iRow = 3 ' 1re Ligne des nom dans sommaire
Do While iRow < 200
    If Worksheets("Sommaire").Cells(iRow, iColSommaireNom) = sNomEmploye Then
        iLigneEmploye = iRow
        Exit Do
    End If
    iRow = iRow + 1
Loop

If iLigneEmploye = 0 Then
    MsgBox ("Employe Invalide")
    End
End If

' Calculer les montants
dTotSemaine1 = Worksheets("Employe").Cells(iRowSemaine1, iColEmployeDim)
dTotSemaine1 = dTotSemaine1 + Worksheets("Employe").Cells(iRowSemaine1, iColEmployeLun)
dTotSemaine1 = dTotSemaine1 + Worksheets("Employe").Cells(iRowSemaine1, iColEmployeMar)
dTotSemaine1 = dTotSemaine1 + Worksheets("Employe").Cells(iRowSemaine1, iColEmployeMer)
dTotSemaine1 = dTotSemaine1 + Worksheets("Employe").Cells(iRowSemaine1, iColEmployeJeu)
dTotSemaine1 = dTotSemaine1 + Worksheets("Employe").Cells(iRowSemaine1, iColEmployeVen)
dTotSemaine1 = dTotSemaine1 + Worksheets("Employe").Cells(iRowSemaine1, iColEmployeSam)
Worksheets("Sommaire").Cells(iLigneEmploye, iColSommaireSem1) = FormatDateTime(dTotSemaine1, vbLongTime)

dTotSemaine2 = Worksheets("Employe").Cells(iRowSemaine2, iColEmployeDim)
dTotSemaine2 = dTotSemaine2 + Worksheets("Employe").Cells(iRowSemaine2, iColEmployeLun)
dTotSemaine2 = dTotSemaine2 + Worksheets("Employe").Cells(iRowSemaine2, iColEmployeMar)
dTotSemaine2 = dTotSemaine2 + Worksheets("Employe").Cells(iRowSemaine2, iColEmployeMer)
dTotSemaine2 = dTotSemaine2 + Worksheets("Employe").Cells(iRowSemaine2, iColEmployeJeu)
dTotSemaine2 = dTotSemaine2 + Worksheets("Employe").Cells(iRowSemaine2, iColEmployeVen)
dTotSemaine2 = dTotSemaine2 + Worksheets("Employe").Cells(iRowSemaine2, iColEmployeSam)
Worksheets("Sommaire").Cells(iLigneEmploye, iColSommaireSem2) = FormatDateTime(dTotSemaine2, vbLongTime)

dTotBonis = Worksheets("Employe").Cells(iRowEmployeBonis, iColEmployeBonis)
Worksheets("Sommaire").Cells(iLigneEmploye, iColSommaireBonis) = FormatDateTime(dTotBonis, vbLongTime)

dTotFormation = Worksheets("Employe").Cells(iRowEmployeFormation, iColEmployeFormation)
Worksheets("Sommaire").Cells(iLigneEmploye, iColSommaireFormation) = FormatDateTime(dTotFormation, vbLongTime)

sFerie = Worksheets("Employe").Cells(iRowEmployeFerie, iColEmployeFerie)
Worksheets("Sommaire").Cells(iLigneEmploye, iColSommaireFerie) = sFerie

sVacance = Worksheets("Employe").Cells(iRowEmployeVacance, iColEmployeVacance)
Worksheets("Sommaire").Cells(iLigneEmploye, iColSommaireVacance) = sVacance

sDateTerm = Worksheets("Employe").Cells(iRowEmployeDateTerm, iColEmployeDateTerm)
Worksheets("Sommaire").Cells(iLigneEmploye, iColSommaireDateTerm) = sDateTerm

End Sub