Calcul temps moyen selon l'utilisateur

Bonjour,

j'ai un tableau avec

portefeuille | Nom de gerant | temps de validation

pf1 gérant1 00:34:29
pf2 gérant1 01:05:34
pf3 g1 t3

pf4 g2 t4
pf5 g3 t5
...

Je veux calculer la moyenne de validation pour CHAQUE gerant


Le code que j'ai écrit me donne 00:00:00
je ne comprends pas pourquoi :(!
Help please!


Le tableau est trié et dans la colonne D on a les gérants dans la colonne G on a le temps.


--------------------------------------------------------------------------------
--------------------------------------------------------------------------------

Sub CalculMoyenne()


Dim i As Integer
Dim nbligne As Integer
Dim somme As Integer
Dim moyenne As Integer


nbligne = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row


For j = 3 To nbligne


Do While Range("D" & j).Value = Range("D" & j + 1).Value
somme = Range("G" & j).Value
somme = Range("G" & j + 1).Value + somme
j = j + 1
Loop

Range("H" & j - 1).Value = somme

moyenne = somme / j
Range("H" & j).Value = moyenne

Next j
somme = 0

End Sub
--------------------------------------------------------------------------------
-------------------------------------------------------------------------------