XL 2013 Placer une image au centre de l'écran

    With Workbooks(1).ActiveSheet.Shapes("Image_Coyote")
        .Top = ActiveWindow.VisibleRange.Top + 80
        .Left = ActiveWindow.VisibleRange.Left + 240
    End With

Option Explicit

Sub Centrage_Champ()
Dim img As Shape, champ As Range
    Set champ = Feuil1.Range("B2:F12")
    Set img = ActiveSheet.Shapes(1)
    With champ
        img.Top = .Top + .Height / 2 - img.Height / 2
        img.Left = .Left + .Width / 2 - img.Width / 2
    End With
End Sub

Sub Centrage_Window()
Dim img As Shape
    Set img = ActiveSheet.Shapes(1)
    With ActiveWindow.VisibleRange
        img.Top = .Top + .Height / 2 - img.Height / 2
        img.Left = .Left + .Width / 2 - img.Width / 2
    End With
End Sub