Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Columns('f:h')) Is Nothing Then
Cancel = True 'pour eviter l'edition de la cellule
'Target = IIf(Target = '*', '', '*')'une autre syntaxe possible
If Target.Cells.Value = '*' Then
Target.Value = ''
Else
Target.Value = '*'
End If
End If
End Sub