Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim plage(1 To 3) As Range
Set plage1 = Application.Union(Range("e2"), Range("f2"), Range("g2"))
plage1.Value = 30
Set plage2 = Application.Union(Range("j6"), Range("k6"))
plage2.Value = 20
Set plage3 = Application.Union(Range("b11"), Range("c11"), Range("d11"), Range("e11"))
plage3.Value = 40
End Sub