Set Ledoc = traitementTexte.Documents.Open(ActiveWorkbook.Path & "/DOC/SYSTEM/BE.doc")
For Each Ma_Forme In Feuil3.Shapes
Feuil3.Select
If Ma_Forme.Name = "Image61" Then
Feuil3.Shapes("Image61").Copy
For Each objet In Ledoc.Shapes
Zone = (objet.Name)
Next objet
Ledoc.Shapes(Zone).Select
With Ledoc.Shapes(Zone)
.Selection.Paste
End With
Exit For
Else
End If
Next Ma_Forme