merci je viens donc de rajouter ceci a mon code. mais ca ne marche pas
Public Sub Controle_ActualiseWheel(Control As MSForms.Control, ByVal sens As Integer)
Dim Index As Long
'le contrôle doit avoir une propriété ListIndex !
Index = Control.ListIndex
Select Case sens
Case 1
If Index < Control.ListCount - 1 Then Index = Index + 1
Case -1
If Index > 0 Then Index = Index - 1
End Select
Control.ListIndex = Index
End Sub