Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then 'double clic sur colonne 3 C
Target.Copy
CreateObject("Wscript.shell").Popup "DONNEES : " & Target.Value & " COPIÉES DANS LE PRESSE PAPIER", 1, "COPIE DES DONNEES"
Cancel = True '//// instruction supplémentaire
End If
End Sub