Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim pl As Range 'déclare la variable pl (Plage)
Set pl = Range("B29:H35") 'définit la plage pl
'si le doucle-clic a lieu ailleurs que dans la plage pl, sort de la proocédure
If Application.Intersect(Target, pl) Is Nothing Then Exit Sub
Cancel = True 'annule le mode édition lié au double-clic
pl.Interior.ColorIndex = xlNone 'supprime la couleur danws toute la plge pl
Target.Interior.ColorIndex = 3 'colore la cellule double-cliquée en rouge
Range("G25").Value = Target.Value 'place la valeur de la cellule double-cliquée dans G25
End Sub