Re,
le fichier sans mot de passe est devenu “INVISIBLE”,
C’est une astuce que je ne connaissais pas
remplace cette ligne dans la macro,
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlWhole)
par celle-ci
Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlPart, LookIn:=xlValues)