double click

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("C3:L22")) Is Nothing Then
With Target
'If Selection.Interior.ColorIndex = 3 Then
'Selection.Interior.ColorIndex = xlNone
'Else
'Selection.Interior.ColorIndex = 3
'End If
' traiter le début de la chaine correspondante à l'image là on voit que clic sur PERFORATEUR  est en B68 et que
' le nom est le début en A68 , donc récupérer en testant 1er espace de la chaine le nom Perforateur 
' faire le SELECT de ce que tu veux copier et faire le PASTE ou il doit aller apparemment le Nom est aussi le nom 'de l'onglet ce qui facilite le VBA 
End With
End If
End Sub