bonjour dominique le forum si j ai bien compris une approche du pb Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim TopPos As Long
Dim LeftPos As Long
Dim X As Long
Dim Y As Long
For X = 1 To ActiveWindow.ScrollRow - 1
TopPos = TopPos + Cells(X, 1).Height
Next X
For Y = 1 To ActiveWindow.ScrollColumn - 1
LeftPos = LeftPos + Cells(Y, 1).Width
Next Y
TopPos = TopPos + ActiveWindow.UsableHeight - 250 ' valeur a modifier
LeftPos = LeftPos + ActiveWindow.UsableWidth - 500 'idem
Sheets('feuil1').OLEObjects('CommandButton1').Left = LeftPos
Sheets('feuil1').OLEObjects('CommandButton1').Top = TopPos
End Sub'salutations