Assigner raccourcis clavier

Bonjour,

J'ai un petit bout de code que j'ai enregistré comme modèle afin de l'avoir dans tous les classeurs.

Je souhaite savoir s'il est possible d'affecter un raccourcis clavier au module concerné afin de l’exécuter directement depuis Excel.

Je vous remercie d'avance pour votre aide.

Sub delColHono01()
Dim sourceSheet As Worksheet
Dim sh

    Set sourceSheet = Sheets(1)
    sourceSheet.Range("D:I").EntireColumn.Delete
    sourceSheet.Range("E:I").EntireColumn.Delete

    Application.DisplayAlerts = False 'desactive les messages autorisation d'effacer
    For Each sh In Sheets
         If Left(sh.Name, 13) = "Récapitulatif" Then
         sh.Delete
         Else
            If Left(sh.Name, 11) = "Ventilation" Then
            sh.Delete
            End If
        End If
    Next

End Sub

Bonjour,

si tu veux le faire par macro, essaie ceci :

Application.MacroOptions Macro:="maMacro", Description:="", ShortcutKey:="X"