Comment agrandir la taille de la police dans les listes de validation ?

Quand on visualise une page avec un facteur de zoom à 70% par exemple, le contenu des listes de validation devient illisible. On ne peut malheureusement pas modifier la taille de cette police. On peut en revanche faire en sorte qu'au moment de la sélection de la cellule, le zomme augmente. C'est un pis aller...
Mettre ce code par exemple dans le module de la feuille concernée et penser à ajuster les facteurs de zomme souhaités d'une part et la référence (ici $A$1) de la cellule contenant la liste de validation.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
   ActiveWindow.Zoom = 200
Else
   ActiveWindow.Zoom = 70
End If
End Sub