re :
ci-joint ce que j'ai trouve : entre parethese tu y mets tes options pour ton cas "effect"
Private Sub object_BeforeDragOver( ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As fmShiftState)
ci apres explication de "effect" avec ces arguments
Lorsqu'un contrôle gère cet événement, vous pouvez utiliser l'argument Effect afin d'identifier l'action glisser-déplacer à effectuer. Lorsque Effect est défini sur fmDropEffectCopyOrMove, la source accepte les opérations de copie (fmDropEffectCopy), de déplacement (fmDropEffectMove) et d'annulation (fmDropEffectNone).
Attention :
La plupart des contrôles ne prennent pas en charge l'opération de glisser-déplacer si Cancel a la valeur False (par défaut). Cela signifie que le contrôle rejette toute tentative de glisser-déplacer sur le contrôle, et il ne déclenche pas l'événement BeforeDropOrPaste. Deux exceptions à cette règle : les contrôles TextBox et ComboBox qui supportent l'opération de glisser-déplacer même si Cancel a la valeur False.
Good luck
Fred