<p>Vous pouvez le faire avec une macro Workbook_Open dans le module ThisWorkbook, comme ceci :</p>
<pre><code class="lang-auto">Private Sub Workbook_Open()
Application.CommandBars.FindControl(ID:=1849).Execute
SendKeys "%(h){DOWN}{ENTER}{ESC}"
End Sub
</code></pre>
<p>Cela le définira pour votre session dans le classeur dans lequel vous vous trouvez.</p>
<p>Pour que ce soit toujours le paramètre par défaut, vous devez créer un <a href="https://www.rondebruin.nl/win/personal.htm">classeur de macros personnelles</a>.</p>
<p>Remarque : Ancienne ligne de la réponse originale : <code>SendKeys "%(t)%(h)W~{ESC}"</code></p>
