Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C11:D20")) Is Nothing Then 'à vérifier car avec le smiley......
Cancel = True 'evite le mode édition lié au double-clic
Target.Value = IIf(Target.Value = "", "x", "")
'Target.Offset(1, 0).Select 'quelle nécessité ? (supprime l'apostrophe en début de ligne si tu veux le garder)
End If
End Sub