Microsoft 365 Remplir un listbox via combobox (B1 à ...) (Résolu)

Private Sub ComboBox1_Change()
    ListBox1.Clear
    With ThisWorkbook.Sheets("feuil1")
        Set Cel = .Rows(1).Find(Me.ComboBox1.Value, , xlValues, xlWhole)
        If Not Cel Is Nothing Then
            Set Poste = .Columns(Cel.Column).Find("*", , xlValues, xlWhole)
            Do While Not Poste Is Nothing
                ListBox1.AddItem .Cells(Poste.Row, "A")
                Set Poste = .Columns(Cel.Column).FindNext(Poste)
                If Poste.Address = Cel.Address Then Set Poste = Nothing
            Loop
        End If
    End With
End Sub