Sub Copie_Bouttons()
Dim shp As Shape, tablo
Workbooks("mdidish-WB2.xlsm").Sheets("Feuil1").DrawingObjects.Delete
Workbooks("mdidish-WB1.xlsm").Sheets("Feuil1").DrawingObjects.Copy
Workbooks("mdidish-WB2.xlsm").Worksheets("Feuil1").Activate
ActiveSheet.Range("A1").Select
ActiveSheet.Paste
For Each shp In Workbooks("mdidish-WB2.xlsm").Worksheets("Feuil1").Shapes
If shp.OnAction <> "" Then
tablo = Split(shp.OnAction, "!")
shp.OnAction = "mdidish-WB2.xlsm" & "!" & tablo(UBound(tablo))
End If
Next shp
[A1].Select
End Sub