Effacer des cellules en fonction d'une autre dans un tableau

Bonjour Exceliens!

Quelqu'un pourrais m'aider sur un point SVP :

J'ai un code qui fait que quand je clique sur dans une des cellules dans le range D9:I162, un "1" s'ajoute dans la cellule cliquée.

Ce que j'aimerai faire, c'est :

pour les cellules E jusqu'à H (de la ligne 9 à 162), on ne puisse cocher qu'un seule cellule à la fois :

Exemple : si E9 est à "1", si je clique sur F9 (ou G9 ou H9), le "1" dans E9 s'efface.

Je suis sur un piste, j'ai testé sur la ligne 75, mais je suis incapable d'aller plus loin.

Important on doit pouvoir avoir un "1" dans D9, I9 simultanément.

J'espère que je suis clair ! Sinon n'hésitez pas à demander des précision ;)

Bonne journée et d'avance merci ;)

Eric

Salut Eric,

ainsi, sans doute..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Application.ScreenUpdating = False
'
'on affecte le numéro de ligne sélectioné à la cellule'
If Target.Count = 1 Then
    If Not Intersect(Target, Range("C9:R162")) Is Nothing Then Range("AV9").Value = Target.Row
    If Not Intersect(Target, Union(Range("D9:D162"), Range("I9:I162"))) Is Nothing Then Target = IIf(Target = "", 1, "")
    If Not Intersect(Target, Range("E9:H162")) Is Nothing Then
        If Target = "" Then Range("E" & Target.Row & ":H" & Target.Row).Value = ""
        Target = IIf(Target = "", 1, "")
    End If
End If
'
Application.ScreenUpdating = True
'
End Sub

A+

BOUM !

Nickel !

Effectivement, je n'y serais pas arrivé tout seul, je partais dans un truc, laisses-tomber !

Donc super un grand merci Curulis57!

Bon week end ;)

Eric