sub fermer_outil()
dim i as integer
Dim TonChemin as sting
TonChemin = "C:\blabla\bipbip\"
for i = workbooks.count to 1 step -1
if workbooks(i).name = "Outil.xls" then
workbooks(i).close false ' False empeche la sauvegarde
Else
Workbooks.Open Filename:= "TonChemin\Outil.xls"
End If
next i
end sub