bonjour,
une proposition via une macro
Sub aargh()
With Sheets("feuil1")
ligneencours = 2
heuredeproduction = 0
enproduction = False
Do While .Cells(ligneencours, 1) <> ""
Message = .Cells(ligneencours, 5)
If InStr(Message, "Production") > 0 Then
heuredepartproduction = .Cells(ligneencours, 3) + .Cells(ligneencours, 4)
enproduction = True
Else
If enproduction = True Then heuredeproduction = heuredeproduction + .Cells(ligneencours, 3) + .Cells(ligneencours, 4) - heuredepartproduction: enproduction = False
End If
ligneencours = ligneencours + 1
Loop
MsgBox "temps du production" & Format(heuredeproduction, "dd jour""(s)"" et hh:mm:ss")
End With
End Sub