toujours clique sur cellule mais en colonne

[elo6]

Re le forum,
ma private sub me permet de mettre une croix par ligne dans ma plage de données... Comment le faire par colonne ?
Merci d'avance!

De nouveau le code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = 35 And Not Application.Intersect(Target, Range('ZoneDonnees')) Is Nothing Then
Range(Cells(Target.Row, 4), Cells(Target.Row, 8)) = ''
Target = IIf(Target.Text = 'X', '', 'X')
End If
End Sub

 

[elo6]

Bonjour le forum!
Sympas le nouveau look du forum!:silly:
J'aime beaucoup.:kiss:
Concernant mon problème de clique par colonne, je n'ai toujours pas de solution😛inch: :S :unsure: . Quelqu'un a-t-il une idée?:lol:
Merci!