Bonsoir Chti160,
Ci-joint peut être une solution :
Public Sub SommeAvecHeure()
Dim TabTemp As Variant
Dim L As Long, L2 As Long
Dim V As Byte
'Charge les données dans un tableau variant temporaire
With ActiveSheet
L = .Range("A65536").End(xlUp).Row
TabTemp = .Range(.Cells(1, 1), .Cells(L, 2)).Value
'Procède aux cumuls souhaités
For L = 1 To UBound(TabTemp, 1)
V = Minute(TabTemp(L, 1))
If V > 0 Then
For L2 = L + 1 To UBound(TabTemp, 1)
If Minute(TabTemp(L2, 1)) = V Then
TabTemp(L2, 1) = TimeValue("00:00:00")
TabTemp(L, 2) = TabTemp(L, 2) + TabTemp(L2, 2)
End If
Next L2
End If
Next L
'Affiche les résultats obtenus
L2 = 0
For L = 1 To UBound(TabTemp, 1)
If Minute(TabTemp(L, 1)) > 0 Then
L2 = L2 + 1
.Cells(L2, 5) = Minute(TabTemp(L, 1))
.Cells(L2, 6) = TabTemp(L, 2)
End If
Next L
End With
End Sub
Cordialement.
Didier_mDF