Private Sub ComboBox1_Change()
If ComboBox1 = "" Then Exit Sub
If MsgBox("voulez-vous créer le rapport " & ComboBox1 & " ?", vbYesNo, "Pour continuer,") = vbYes Then
MsgBox "il faut le préparer !", vbInformation, "Mais..."
End If
ComboBox1.ListIndex = -1
End Sub
Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox1.Clear
With Sheets("Feuil1")
ComboBox1.List = .Range("I2:J" & .Range("I65536").End(xlUp).Row).Value
End With
End Sub