Sub sebek_2000()
Dim TabPoteau, ligne As Long, i As Long
With Worksheets("page 2")
For ligne = .Range("A" & .Rows.Count).End(xlUp).Row To 4 Step -1
TabPoteau = Split(.Cells(ligne, 3), Chr(10))
.Cells(ligne, 3) = TabPoteau(0)
For i = UBound(TabPoteau) To LBound(TabPoteau) + 1 Step -1
.Rows(ligne).Copy
.Rows(ligne).Insert Shift:=xlDown
.Cells(1 + ligne, 3) = TabPoteau(i)
Application.CutCopyMode = False
Next
Next ligne
End With
End Sub