Macro pour augmenter d'un point la taille de police

Bonjour Forum !

Je voudrais créer une macro qui augmente d’un point la taille de police (et une autre qui diminue d’un point).

Vous me direz : il existe un bouton pour ça dans le ruban.

Et je vous répondrai : oui, mais je voudrais lier la macro à un raccourci clavier.

J’ai essayé avec l’enregistreur de macros, mais je récupère une macro qui impose une hauteur de police donnée, pas une macro qui augmente d’un point :

Sub Police_Taille_Plus_1()
    Selection.Font.Size = 10
End Sub

Quelqu’un pourrait-il m’aider siouplé ?

Merci !

Bonjour,

A tester

Option Explicit
Public Sub Police_taille_plus()
    With Selection
        .Font.Size = .Font.Size + 1
    End With
End Sub
Public Sub Police_taille_moins()
    With Selection
        .Font.Size = .Font.Size - 1
    End With
End Sub

C'est parfait, merci beaucoup !!!!