Rajouter le with worksheets(...., ne suffit pas, il faut rajouter un point (.) devant les objets qui doivent être rattachés à cette feuille, comme dans l'exemple de mon précédent post (même si j'ai omis d'en mettre partout où il faut) et terminer par End With:
with worksheets("nom de la feuille")
DL = UsedRange.End(xlDown).Row + 1
'pour des boutons Formulaire:
Shapes("Bouton 1").Top =Cells(DL, 5).Top 'adapter le nom
end with
je ne comprend pas pourquoi essayer avec plusieurs noms?
Chaque bouton a un nom qui lui est propre!
Joins le classeur que je regarde....
A+