Sub InserLig2()
Dim i As Long
i = 2
With Worksheets("Classeur8")
Do
If .Cells(i, 1) <> .Cells(i - 1, 1) Then
.Rows(i).Insert Shift:=xlUp
'.Cells(i - 1, 1) = .Cells(i, 1)
.Cells(i, 1) = .Cells(i + 1, 1)
.Cells(i, 1).Resize(1, 7).Interior.ColorIndex = 6
End If
i = i + 1
Loop Until .Cells(i, 1) = ""
End With
End Sub