Bonsoir Marc Patrice, le Forum
En lançant une macro comme ceci :
Sub EtToc()
Feuil1.ScrollArea = "A1"
End Sub
Seule la cellule "A1" sera sélectionnable... (on est au minimum obligé de laisser une cellule sélectionnable)
Et en lançant une macro comme celle là :
Sub EtTac()
Feuil1.ScrollArea = ""
End Sub
Tu remets tout en place...
Attention "EtToc" est volatile, si tu veux fermer ton classeur et avoir le même effet à l'ouverture, il faut lancer ce code depuis le Private Module de "ThisWorkBook" en Private Sub Workbook_Open()...
Bonne Nuit
@+Thierry