[carlos]

Bonjour Creepy , Pascal76 et le forum

G tenté ta proposition Creepy mais je n'ai point réussi à la mettre en pratique : 'Argument non falcutatif'

Private Sub ListBox1_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, _
ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, _
ByVal DragState As Long, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
TEST
End Sub

dans un module

Function TEST(ByVal Cancel As MSForms.ReturnBoolean, _
ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, _
ByVal DragState As Long, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
Cancel = True
Effect = 1
End Function

PASCAL76

En ce qui concerne ta remarque Pascal , je ne connais pas du tout les modules de classe , es ce que ca peut me permettre de resoudre mon probleme ??
je cherche des infos sur ce site

Merci