Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Application.Intersect(Target, Range('A' & Target.Row)) ca sert à dire si on est sur la bonne colonne
' InStr(1, Target.Address, ':')=0 et
' InStr(1, Target.Address, ',')=0 permet d'être sur qu'on a sélectionné qu'une seule cellule
If Not Application.Intersect(Target, Range('A' & Target.Row)) Is Nothing _
And InStr(1, Target.Address, ':') = 0 And InStr(1, Target.Address, ',') = 0 Then
Select Case Target.Value
Case ''
Target.Value = '*'
Case '*'
Target.Value = ''
End Select
End If
End Sub