Changement target adresse

Bonjour,

Je voudrais que à la place de la cellule P2 ca soit toute la colonne P ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Cancel = True

If Not Target.Address = "$P$2" Then Exit Sub

Bonjour

Changez cette ligne et supprimer le END SUB après le THEN

If Not Intersect(Target, Range("P:P")) Is Nothing Then
....
End if

Cordialement