Re : Double click dans une case
Bonjour
Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, cancel As Boolean)
If Not Application.Intersect(target, Range("$D:$D,$F:$F, $H:$H")) Is Nothing Then
target = "X"
Else
Exit Sub
End If
cancel = True
End SubCordialement