Bonsoir,
Il suffit d'ajouter deux lignes dans ta macro :
Option Explicit
' Il faut cocher la référence : Microsoft Forms 2.0 Object Library
Dim DataObj As New MSForms.DataObject
Dim Liste As String
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B:B")) Is Nothing Then
' Annuler le mode édition de la celule
Cancel = True
' Si la couleur de la cellule est déjà verte
If Target.Interior.Color = 5287936 Then
' Enlever al couleur
Target.Interior.Color = xlNone
Target.Value = ""
' Supprimer le nom de la liste
Liste = Replace(Liste, Target.Offset(0, -1) & ";", "")
Else
' SInon mettre la cellule en vert
Target.Interior.Color = 5287936
Target.Value = "Mail sélectionné"
' Ajouter le nom à la liste
Liste = Liste & Target.Offset(0, -1) & ";"
End If
' Placer cette liste dans le clipboard
With DataObj
.SetText Liste
.PutInClipboard
End With
End If
End Sub
Bonne soirée