Sub SupprimeDates()
With [A1].CurrentRegion.Columns("F")
.Replace Format(Date - 1, "mmmm dd yyyy") & "*", 0, xlWhole
.Value = .Value 'convertit les textes en nombres
On Error Resume Next 's'il n'y a pas de nombre
.SpecialCells(xlCellTypeConstants, 1).EntireRow.Delete
End With
End Sub