Sub Copie_Plus()
Dim Lignefin As Long, Cible As Long
Dim Cellule As Range
Dim Inter As String
Application.ScreenUpdating = False
Lignefin = Range("A" & Rows.Count).End(xlUp).Row
Cible = 2
For Each Cellule In Range("A2:A" & Lignefin)
Inter = Cellule.Text
If InStr(1, Cellule, "|") > 0 Then
Range("C" & Cible) = Split(Cellule, "|")(0)
Cible = Cible + 1
Inter = Split(Cellule, "|")(1)
End If
Range("C" & Cible) = Inter
Cible = Cible + 1
Next
Application.ScreenUpdating = True
End Sub