Ok merci Hasco.
pour répondre à Phil69970, j'essaye d'enlever le plus possible de select mais ça ne fonctionne pas toujours
exemple qui fonctionne, avec un classeur contenant 2 feuilles et afin d'adapter la taille des feuilles aux écrans :
Sub ZoomSurSelectionOK()
With ThisWorkbook...