Sub test()
Dim i As Integer, tps As Integer, k As Integer
Dim num As Variant
k = 2
Application.Goto Sheets('Données').Range('A1')
For i = 3 To Range('B65536').End(xlUp).Row
num = Cells(i, 2).Value
If Not Cells(i - 1, 2).Value = num And num = 1 Then
Cells(k, 4).Value = Abs(tps - Cells(i, 1).Value)
tps = Cells(i, 1).Value
k = k + 1
End If
Next i
Cells(2, 4).Delete Shift:=xlUp
End Sub