Bonsoir
Tu peux eventuellement, les faire suivrent tes données, plutot que de les figer.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim cell As Range
Application.ScreenUpdating = False
With Worksheets("Database")
.Database.Visible = True
.Database.Left = .Columns(Windows(1).VisibleRange.Column).Left + 30 'modifie la position
.Database.Top = .Rows(Windows(1).VisibleRange.Row).Top + 2
.CommandButton2.Visible = True
.CommandButton2.Left = .Columns(Windows(1).VisibleRange.Column).Left + 440 'modifie la position
.CommandButton2.Top = .Rows(Windows(1).VisibleRange.Row).Top + 2
End With
Application.ScreenUpdating = True
End Sub
cette macro deplace les deux boutons de la feuille de façon à les avoir tout le temps visible en haut de cette feuille