Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [G:G,M:M,S:S,Y:Y]) Is Nothing Then Exit Sub
Dim v
Cancel = True
v = Target
[G:G,M:M,S:S,Y:Y].ClearContents
Target = IIf(v = "", "oui", "")
End Sub
Bonjours,bonsoir nemesia et job75
désole de ne pas avoir répondu plus vite
mais on a eu quelques soucis informatique
a présent tout est rentre dans l ordre
juste un très grand merci , cela fonctionne a merveille cette c est vraiment génial
encore mille fois merci