Bjr à tous,

Je suis dubitatif avec la fonction .Find de l'objet Range.
Quand il s'agit de rechercher des 'strings' dans une feuille ou un colonne de Strings, pas de pb.
Pour les dates, c'est déjà plus coton : il semble qu'il faille tenir compte du .NumberFormat de la colonne
Ex /
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Set le_Range=Sheet.range("A1:A20")
' La première ligne est celle d'un libellé
Form=le_Range.cells(2).Numberformat
Set cellule=le_Range.Find(What:=Format(la_date,Form), etc ...)
Ce qui semble fonctionner
En revanche, pour rechercher une valeur numérique dans une colonne, l'action manuelle fonctionne, mais la même chose en VBA ne fonctionne pas. Je tiens le code à la disposition de ceux qui savent ...

Cordialement
FB