[Hervé]

re carlos, le fil, le forum

J'ai pas bien compris pourquoi tu voulais passer par une macro indépendante.

Alors j'ai fait comme je le sentais :unsure:

code à remplacer :

PrivateSub Listb_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
    Dim MyDataObject As DataObject

    If Button = 1 Then
        Set MyDataObject = New DataObject
        Dim Effect AsInteger
&nbsp; &nbsp; &nbsp; &nbsp; If listb.Value <> '' Then
&nbsp; &nbsp; &nbsp; &nbsp; MyDataObject.SetText listb.Value
&nbsp; &nbsp; &nbsp; &nbsp; Effect = MyDataObject.StartDrag
&nbsp; &nbsp; &nbsp; &nbsp; listb.RemoveItem (listb.ListIndex) 'ajouter ceci
&nbsp; &nbsp; &nbsp; &nbsp; EndIf
&nbsp; &nbsp; EndIf
EndSub

salut