Option Explicit
'(Public ref_cel As String
'(Public numcel As Integer
'''''''''''''
'VBA initial'
'''''''''''''
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pl As Range, n%
Set pl = Range("C19:H25", "C32:H37") 'complété
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
Set pl = Range("C19:H25")
n = Target.Row
Set pl = Range(Cells(n, 3), Cells(n, 8))
Cancel = True
pl.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 3
Cells(n, 14).Value = Target.Value
'(End Sub
'''''''''
'VBA new'
'''''''''
'(Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'(Dim pl As Range
Set pl = Range("C32:H37")
'(If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
Cancel = True
pl.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 3
Range("G28").Value = Target.Value
End Sub