Comment modifier macro pour colonnes en discontinue

Bonjour le forum

Quelqu'un a fait cette macro il y a peu

Mais je voudrais ajouter une colonne qui est en discontinue (colonne P)

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

Merci à vous pour vos éventuels retours

Cordialement

Bonjour

Remplace :

With Range("K:L").EntireColumn

.Hidden = Not .Hidden

par :

With Range("K:L,P:P").EntireColumn
          .Hidden = Not .Hidden

Bye !

bonjour,

je ne sais pas pourquoi, mais ceci ne fonctionne pas sans le "screenupdating"

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("K1:L1,P1").EntireColumn
          .Hidden = Not .Hidden     '
     End With
     Application.ScreenUpdating = True
End Sub

Bonjour gmb & BsAlv

Les 2 fonctionnent nickel

Merci à vous deux

Bonne fin de journée

Cordialement