[COLOR="DarkSlateGray"]Sub découpe()
Dim oDat, oSep, dSp
Dim i As Long, j As Long
With Sheets("Feuil1")
oDat = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)).Value
End With
ReDim oSep(1 To 1)
For i = 1 To -1 + UBound(oDat, 1)
If Not IsEmpty(oDat(i, 1)) Then
dSp = Split(oDat(i, 1), "<br>")
For j = 0 To UBound(dSp)
oSep(UBound(oSep)) = dSp(j)
ReDim Preserve oSep(1 To 1 + UBound(oSep))
Next j
End If
Next i
ReDim Preserve oSep(1 To Application.Max(1, -1 + UBound(oSep)))
With Sheets("Feuil2")
.Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)).ClearContents
.Range(.Cells(1, 1), .Cells(UBound(oSep), 1)).Value = Application.Transpose(oSep)
.Activate
End With
End Sub[/COLOR]