Macro fonctionne bien mais y a t-il mieux à faire?

Bonjour le forum

J'ai mis cette macro dans ThisWorkbook

Je double clic cellule A2 pour faire afficher masquer les colonnes K & L

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
         If Target.Address = "$A$2" Then
        Cancel = True
        If Range("K:L").EntireColumn.Hidden = True Then
            Range("K:L").EntireColumn.Hidden = False
        Else
            Range("K:L").EntireColumn.Hidden = True
        End If
        End If
End Sub

Ya t-il mieux à faire car un peu longue et pas très sympa... mais ça fonctionne !!!

Merci pour vos éventuels retours

Cordialement

bonjour, un petit peu plus court ...

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
     If Target.Address <> "$A$2" Then Exit Sub
     Cancel = True
     With Range("K:L").EntireColumn
          .Hidden = Not .Hidden
     End With
End Sub

Bonjour BsAlv

Merci d'avoir "raccourci" la macro qui fonctionne parfaitement

C'est toujours agréable de communiquer avec toi

Court mais efficace

Bien cordialement à toi