Ajouter une lettre à la fin des items cmBox

Bonjour Forum

J'alimente une combobox comme suit:

Sheets("Données").Activate
      Range("B2", Range("B" & Rows.Count).End(xlUp)).Name = "Chauffage"
    Me.ComboBox2.RowSource = "Chauffage"

Les valeurs de la colonne B sont numérique et en lettres

voici les valeurs

500

1000

1200

Air-Pulsée

j'aimerais que lorsque les valeurs sont numérique un "w" soit ajouté à la fin de l'item de la combobox pour ca donne ceci

500 w

1000 w

1200 w

Air-Pulsée

quelqu'un pour m'éclairer!?

Bonsoir,

Pas ainsi. RowSource crée un lien...

    Dim Lst, i%
    '...
    With Worksheets("Données")
        Lst = .Range("B2:B" & .Range("B" & .Rows.Count).End(xlUp).Row).Value
    End With
    For i = 1 To UBound(Lst, 1)
        If IsNumeric(Lst(i, 1)) Then Lst(i, 1) = Lst(i, 1) & " w"
    Next i
    Me.ComboBox2.List = Lst

Merci beaucoup MFerrand!