Function SansDate(r As Range)
Dim tablo, ncol%, i&, j%
Set r = Intersect(r, r.Parent.UsedRange)
If r Is Nothing Then Exit Function
ncol = r.Columns.Count
tablo = r.Resize(, ncol + 1) 'matrice, plus rapide, au moins 2 éléments
For i = 1 To UBound(tablo)
For j = 1 To ncol
If IsDate(tablo(i, j)) Then tablo(i, j) = Empty
Next j, i
SansDate = tablo 'matrice
End Function