XL 2016 VBA Centrer un Shape dans l'ActiveWindow

  'Centrer la Shape en largeur
    If LeftPoints = xlNone Then
        With Application
            Shape.Left = .Left + (.UsableWidth - Shape.Width) / 2
        End With
    Else
        Shape.Left = LeftPoints
    End If
  
    'Centrer la Shape en hauteur
    If TopPoints = xlNone Then
        With Application
            Shape.Top = .Top + (.UsableHeight - Shape.Height) / 2
        End With
    Else
        Shape.Top = TopPoints
    End If

Sub Bouton6_Cliquer()
Dim rng As Range, t As String
Set rng = ActiveWindow.VisibleRange
t = "viblerange :" & rng.Address(0, 0) & " : " & rng.Width & " points" & vbCr & vbCr
t = t & " si tu regarde bien  la colonne " & rng.Cells(rng.Cells.Count).EntireColumn.Address(0, 0) & vbCr
t = t & " tu verra quelle n'est pas completement visible " & vbCr & vbCr
t = t & " usableWidth de l'application :" & Application.UsableWidth & " points"
MsgBox t
End Sub