bonjour Eli, le forum
regarde cet exemple, il peut t'inspirer :
Il y a des données dans 2 classeurs différents : Rep_Clients.xls et Representants_par_departements.xls
Tu les places tous les deux sur C:/
Dans Rep_Clients.xls , il y a le code suivant :
Set ClasseurRepresentants = GetObject("C:\Representants_par_departements.xls")
Ensuite tu cherches avec Find
ClasseurRepresentants.Sheets("Feuil1").Range("A4:H50").Find(What:=NumDepartement, LookIn:=xlFormulas, LookAt:=xlWhole).Address
Tu executes la macro : Rep_Clients.xls, et op ! le miracle se produit