code rebelle

Bonsoir,

Bon OK, le VBA c'est pas pour moi...mais j' insiste !!
Je voudrais que mon code envoi ma Liste et ma sous liste toute les trois lignes (ca marche!!)
Mais commence sous mon titre en B3 (et C3).
Si vous pouviez m'aider..
Voila mon Truc grace à vous)
' j'ai laissé mes commentaires d'essais '

merci

Private Sub Valider_Click()
ListeDeroulante.Hide
Index = Marque.ListIndex
ChoixMarque = Marque.Text
'Changement en B2
Sheets("Validation").Range("B2").Value = ChoixMarque
For i = 1 To ListBox1.ListCount
If ListBox1.Selected(i - 1) = True Then
With Sheets("Validation")
'si offset (2,0)incrémentera toutes les deux lignes.
'si offset (1,2)incrémentera code en colonne E (1.1)en D
'si offset (1,1)incrémentera en D2
'si Listbox (1,1)incrémentera sous liste en B et en C
'Si List Box1.List(I - 1, 0) sous produit x2 affichée (sans N°)
.Range("B65536").End(xlUp).Offset(3, 0) = ListBox1.List(i - 1, 0)
.Range("C" & .Range("B65536").End(xlUp).Row) = ListBox1.List(i - 1, 1)
End With
ListBox1.Selected(i - 1) = False
'Message de confirmation de la saisie
Userform1.Show
'retour à la liste
ListeDeroulante.Show
End If
Next i
End Sub