Bonjour
Bonjour à tous
Un essai tel que demandé.
Option Explicit
Dim tablo, tabloR()
Dim i&, n&, nb&, k&
Sub Séparer()
tablo = Range("A3:B" & Range("A" & Rows.Count).End(xlUp).Row)
Range("G1").CurrentRegion.Offset(2, 0).Clear
k = 0
For i = 1 To UBound(tablo, 1)
If tablo(i, 2) = "" Then
ReDim Preserve tabloR(1 To 2, 1 To k + 1)
tabloR(1, k + 1) = tablo(i, 1)
k = k + 1
GoTo suite
End If
nb = UBound(Split(tablo(i, 2), " "))
For n = 0 To nb
ReDim Preserve tabloR(1 To 2, 1 To k + 1)
tabloR(1, k + 1) = tablo(i, 1)
tabloR(2, k + 1) = Split(tablo(i, 2), " ")(n)
k = k + 1
Next n
suite:
Next i
Range("G3").Resize(UBound(tabloR, 2), 2) = Application.Transpose(tabloR)
Range("G3").Resize(UBound(tabloR, 2), 2).Borders.LineStyle = xlContinuous
Erase tabloR
End Sub
Bye !