Sub test()
Dim i As Double
Sheets('tb').Select
For i = 2 To Range('A65536').End(xlUp).Row
If Not Cells(i, 1).Value = Cells(i + 1, 1).Value Then
With Sheets('Feuil1')
.Range('A65536').End(xlUp).Offset(1, 0).Value = Cells(i - 1, 1).Value
.Range('B65536').End(xlUp).Offset(1, 0).Value = Cells(i - 1, 2).Value
.Range('A65536').End(xlUp).Offset(1, 0).Value = Cells(i, 1).Value
.Range('B65536').End(xlUp).Offset(1, 0).Value = Cells(i, 2).Value
End With
End If
Next i
End Sub