Range("A1").Select
ActiveSheet.OLEObjects.Add(Filename:= _
chemin _
, Link:=False, DisplayAsIcon:=False).Select
Selection.Verb Verb:=xlPrimary ' je sais pas a quoi cela sert
Range("C38:C42").Select ' je modifie certaine cellule du tableau ajouté
ActiveCell.FormulaR1C1 = ind
Range("C9:C35").Select
ActiveCell.FormulaR1C1 = doc
Range("B9:B35").Select
ActiveCell.FormulaR1C1 = Pageactuelle & "/" & Nbpage
ActiveWindow.Close
Selection.ShapeRange.IncrementTop 260# '