Voici ce que j'ai essaye mais j'ai un erreur "objet requis" pour name. Qu'en penses-tu?
Public Sub BOUTON_SAVE1() '<SAVE1>
Dim name As String
Set name = ActiveWorkbook
If name = fenetre1 Then
Set Save1 = ActiveCell ' On sauvegarde la position de la cellule active avant de se deplacer
Else
Set Save3 = ActiveCell
End If
position = 1
End Sub