Sub Déchiffre()
Dim LigneFin As Long
Dim LigneCible As Long
Dim Tourne As Long
Dim Début As String, Fin As String, Durée As String
LigneFin = Range("B" & Rows.Count).End(xlUp).Row
For Tourne = 3 To LigneFin
LigneCible = Range("D" & Rows.Count).End(xlUp).Row + 1
If Range("B" & Tourne) = "1" And Début = "" Then
Range("D" & LigneCible) = Range("A" & Tourne - 1)
Range("E" & LigneCible) = 0
Début = Range("A" & Tourne)
Fin = ""
End If
If Range("B" & Tourne) = "0" Or Range("B" & Tourne) = "" Then Fin = Range("A" & Tourne)
If Début <> "" And Fin <> "" Then
Durée = DateDiff("n", Début, Fin)
Range("E" & LigneCible - 1) = Durée
Début = ""
Fin = ""
End If
Next Tourne
End Sub