exclure une cellule parmi une sélection

[ben]

Bonjour le forum

J'ai le code suivant :

Dim c As Range
For Each c In Range("1:1")
If Not IsEmpty(c) Then
UserForm5.cbx_choix_machine.AddItem c.Value
End If
Next


j'ai un petit souci j'aimerai exclure de la sélection la cellule A1 comment puis je faire ?

 

[wally]

Bonjour ben et le forum,

Essaye ceci :

(...)
If Not IsEmpty(c) And c.Address(0, 0) <> "A1" Then
(...)


Slts

wally

 

[ben]

trop bien ca marche
merci beaucoup