dernière chose, comment sélectionner en même temps la 4ème cellule et 6ème cellule ?
cela ne fonctionne pas avec:
Sub Bouton1_Cliquer()
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(-4, 0).Select
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Offset(-6, 0).Select
End Sub