Salut !
Je viens de voir que Robert t'avait déjà répondu, mais comme j'ai fait un fichier, je te le donne quand-même.
Il suffit en fait de mettre ta mcro dans WorkBook, tel que :
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
De plus j'ai simplifié ta macro comme suit :
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If IsEmpty(ActiveCell.Value) And ActiveCell.Interior.ColorIndex = 35 Then
ActiveCell.Value = 'X'
Else: ActiveCell.Value = ''
End If
Cancel = True
End Sub
@ +++
Moa
[file name=Doubleclic.zip size=8836]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Doubleclic.zip[/file]