Sub Epurage_avec_tableau()
Dim t, tablo, i&, x$
t = Timer
With ActiveSheet.UsedRange
tablo = .Resize(, 2).Formula 'matrice, plus rapide, au moins 2 éléments
For i = 1 To UBound(tablo)
If tablo(i, 1) = "" Then tablo(i, 1) = Empty
Next
.Columns(1) = tablo
End With
x = Format(Timer - t, "0.00 \sec")
[F13] = x
MsgBox x
End Sub