c'est bon presque trouve
ca devrait ressembler à ça
Sub replacer()
colN = 8
LastRw = ActiveSheet.UsedRange.Rows.Count
'MsgBox LastRw
For x = 7 To LastRw
If (Cells(x, colN) <> Cells(x - 1, colN)) Then
Cells(4, 2).Value = Cells(x - 1, colN).Value
'Range("H7" ).Value
'Cells(4, 2).Value = "aaaaaaaaaaaa" marche
End If
Next
End Sub