Voilà ou j'en suis.
Mais ça plante avec le Rowx("i:i")
Sub Délimitation()
'
Dim L As Long
Dim i, j As Long
Sheets("SBOM").Activate
Columns("K:K").Select
Selection.TextToColumns Destination:=Range("K1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
For i = 2 To 15000
If Cells(i, 12) <> "" Then
Rows("i:i").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i, 12).Select
Selection.Copy
Cells(i + 1, 11).Selection
Seection.Paste
For j = 1 To 10
Cells(i, j).Selection
Selection.Copy
Cells(i + 1, j).Selection
Selection.Paste
Next j
End If
Next i
End Sub