Sub test()
With ThisWorkbook.Sheets("Feuil1")
Set celluleResultat = Range("B12")
For i = 2 To 15
If .Cells(3, i).Value <> .Cells(3, i - 1).Value Then
celluleResultat.Value = .Cells(3, i).Value
celluleResultat.Offset(0, 1).Value = .Cells(2, i).Value
End If
If .Cells(3, i).Value <> .Cells(3, i + 1).Value Then
celluleResultat.Offset(0, 3).Value = .Cells(2, i).Value
Set celluleResultat = celluleResultat.Offset(1, 0)
End If
Next i
End With
End Sub