Rechercher date

j'essaye de rechercher une date impossible dans une liste de date , aucune erreur mais aucun resultat trouver non plus

Sub test()

Valeur = #3/24/2006#

With Worksheets(1).Cells

Set result = .Find(Format(Valeur, "m/d/yy"), LookIn:=xlValues)

suite:

If Not result Is Nothing Then

FirstAddress = result.Address

Range(FirstAddress).Select

End If

End With

End Sub

merci de votre aide

Bonjour,

Sub test()
Valeur = DateSerial(2006, 3, 24)
With Worksheets(1).Cells
Set result = .Find(Valeur, LookIn:=xlValues)
suite:
If Not result Is Nothing Then
FirstAddress = result.Address
Range(FirstAddress).Select
End If
End With
End Sub

c'est exactement sa !! merciii beaucoup