Sub Supprimer_Lignes_Date1()
Dim dat$, f$, t, ncol%, rest(), i&, n&, j%
dat = "20/02/2012 18/12/1995 15/06/2005 01/05/2014 25/02/2006"
f = "dd/mm/yyyy"
With Sheets("bd").[A1].CurrentRegion
t = .Value
ncol = UBound(t, 2)
ReDim rest(1 To UBound(t), 1 To ncol)
For i = 2 To UBound(t)
If InStr(dat, Format(t(i, 3), f)) = 0 Then
n = n + 1
For j = 1 To ncol
rest(n, j) = t(i, j)
Next
End If
Next
.Offset(1) = rest
End With
End Sub