Workbooks.Open(Filename:="c:\devis_modele.xls"). _
RunAutoMacros Which:=xlAutoOpen
ActiveWindow.ActivateNext
Sheets("FICHE 1").Select
ActiveWindow.SelectedSheets.Delete
ActiveWindow.ActivateNext
Sheets(Array("FICHE 1", "Fiche 2", "Fiche 3")).Copy Before:= _
Workbooks([COLOR="Red"]La je sais pas quoi mettre pour aller à l'autre classeur ouvert[/COLOR]).Sheets(5)
Cells.Replace What:="[devis_modele.xls]", Replacement:="", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False