Programme que dans certaine colonne [VBA]

Bonjour,
j'ai un programme tout simple :

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   If UCase(Target) = "X" Then Target = "" Else Target = "X" 'Ecris un "X" dans la cellule double-cliqué Cancel = True   End Sub

---

Et je souhaiterai appliquer ce programme que dans les colonnes F, G, H, I, J, K, L, M, N

Pouvez-vous m'aider svp ?

Bonjour

Code:

---

if target.column >5 and target.column<17 then

---

à adapter au colonnes

Ha oui cette ligne toute bête que j'avais oublié :calim2:

Pour ceux que ca peut aider voici le code au complet

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   If Target.Column > 5 And Target.Column < 15 Then If UCase(Target) = "X" Then Target = "" Else Target = "X" 'Ecris un "X" dans la cellule double-cliqué de la colonne 6 à 14 End If Cancel = True   End Sub

---