Sub SupVBLF()
Dim tablo, i&, x$, j%
With ActiveSheet 'à adapter
If .FilterMode Then .ShowAllData 'si la feuille est filtrée
With .[B5:B5621]
tablo = .Formula 'matrice, plus rapide, au moins 2 éléments
For i = 1 To UBound(tablo)
x = tablo(i, 1)
For j = 1 To Len(x)
If Mid(x, j, 1) <> vbLf Then Exit For
Next j
tablo(i, 1) = Mid(x, j)
Next i
.Formula = tablo 'restitution
End With
End With
End Sub