Bonjour,

tout est dans la question.

L'utilisation de
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Private Sub ComboBox1_Change()
    Sheets("Feuil1").ComboBox1.ListFillRange = Sheets("Feuil2").Range("A:A").SpecialCells(xlCellTypeVisible).Address
End Sub
ne fonctionne pas !