Sub copie_cyclnvoprod()
Workbooks.Open "\\PRODUIT\Cycle de développement d’un nouveau produit.xls", 0
Workbooks("Suivi indicateurs.xls").Activate
nomfeuille = Str(Cells(4, 8).Value)
With Workbooks("Cycle de développement d’un nouveau produit.xls")
Sheets ("nomfeuille").select ==> Mets bien le nomfeuille entre guillemets
Range("D7:N9").Select
Selection.Copy
Windows("Suivi indicateurs.xls").Activate
Range("E12:O14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
End With
Application.CutCopyMode = False
Workbooks("Cycle de développement d’un nouveau produit.xls").Close SaveChanges:=False
End Sub