Bonjour
A tester
A mettre dans Private Sub Workbook_SheetBeforeDoubleClick
Cependant le double clic affiche déjà un commentaire.
If Not Intersect(Target, Range("h6:h36")) Is Nothing Then
If Sh.Range(Target.Address) = 1 Then
Sh.Range(Target.Address) = vbNullString
ElseIf Sh.Range(Target.Address) = vbNullString Then
Sh.Range(Target.Address) = 1
Sh.Range(Target.Address).Interior.Color = 13434828 '13434828 peut être converti en RGB(R,G,B)
End If
End If