Boucle for

Bonjour le forum

voici ma boucle for:

For Each c In Range("f1:f" & Range("A65536").End(xlUp).Row)


If c = ComboBox1 Then
If c.Offset(0, 28).Value = "vert" Then XXXXXXXXXXXXX
If c.Offset(0, 28).Value = "rouge" Then XXXXXXXXXXXX
ListBox1.AddItem c.Offset(0, -5).Value
ListBox1.List(x, 1) = c.Offset(0, -4).Text

ListBox1.List(x, 2) = c.Value
ListBox1.List(x, 3) = c.Offset(0, 28).Value
ListBox1.List(x, 4) = c.Offset(0, 11).Value
If c.Offset(0, 32).Value = "D1" Then
ListBox1.List(x, 5) = (100)
ElseIf c.Offset(0, 32).Value = "C1" Then ListBox1.List(x, 5) = (30)
ElseIf c.Offset(0, 32).Value = "D5" Then ListBox1.List(x, 5) = (80)
ElseIf c.Offset(0, 32).Value = "E1" Then ListBox1.List(x, 5) = (50)
ElseIf c.Offset(0, 32).Value = "Z" Then ListBox1.List(x, 5) = (10)
ElseIf c.Offset(0, 32).Value = "P" Then ListBox1.List(x, 5) = (-50)
End If

ListBox1.List(x, 6) = c.Offset(0, -5).Value + c.Offset(0, -4).Value
x = x + 1
End If
Next c


je voudrai que si la valeur c.Offset(0, 28).Value = "vert" ou c.Offset(0, 28).Value = "rouge" qu'elle passe à la ligne suivante.

merci
damien