Copier uniquement cellules police normale dans listbox

Bonjour le forum,

J'ai encore besoin de vos connaissances en VBA

Ce code me permet de remplir une listbox .

UserForm4.ListBox1.List() = Range(Worksheets("Choix").Cells(2, 4), Worksheets("Choix").Cells(Worksheets("Choix").Range("D1000").End(xlUp).Row, 4)).Value

Cependant dans la colonne copiée il y a des cellules en italique et d'autre en style normal.

Moi j'aimerais copier uniquement dans ma listbox les cellules en style normal.

Est-ce possible ?

et si oui pouvez-vous m'aider pour le code ?

Merci de vos réponses

Bonjour,

a tester

    For Each c In Range(Worksheets("Choix").Cells(2, 4), Worksheets("Choix").Cells(Worksheets("Choix").Range("D1000").End(xlUp).Row, 4))
        If c.Font.Italic = False Then
            UserForm4.ListBox1.AddItem c.Value
        End If
    Next