Salut le forum
Maguetlolo, les parties à modifier le format des cellules hh:mm:ss en (D:F)
Range("C2:F" & Range("B2").End(xlDown).Row).ClearContents
'...
Select Case cell.Offset(0, -1)
Case "on"
cellule.Offset(0, 1) = cellule.Offset(0, 1) + 1
cellule.Offset(0, 2) = cellule.Offset(0, 2) + cell.Offset(0, 2)
Case "in"
cellule.Offset(0, 1) = cellule.Offset(0, 1) + 1
cellule.Offset(0, 3) = cellule.Offset(0, 3) + cell.Offset(0, 2)
Case "out"
cellule.Offset(0, 1) = cellule.Offset(0, 1) + 1
cellule.Offset(0, 4) = cellule.Offset(0, 4) + cell.Offset(0, 2)
End Select
'...
Mytå
P.S. Tu aurais pu enlever le [Résolu] et mettre ta question sur l'ancienne ficelle.