[Creepy]

Bonjour le Forum, Carlos,

Pourquoi les 11 listbox font la même chose une seule t'aurait pas suffit du coup ?

Bref Tu ne peux pas faire un sub pour les 11 il faut faire autant de sub que de controles.

Par contre tu crées dans un module ta fonction et tu l'appelles à chaque fois :

Exemple
A mettre dans une module

Function TEST()
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

et dans tes 11 procédures :
Call TEST

Et voila le tour est joué !

@+

Creepy