Bonsoir sultan87, le forum,
EDIT: Bonsoir M12,
Un essai....
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
Cancel = True
If .Interior.ColorIndex = 4 Then
.Interior.ColorIndex = xlNone
Else
.Interior.ColorIndex = 4
End If
End With
End Sub
Cordialement,