Sub Workbook_Open()
' Lance la macro Bordure sur appui sur la touche "²"
Application.OnKey "²", "Bordure"
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Remet en état la touche "²" en quittant
Application.OnKey "²"
End Sub