Vba Pb de boucles

Bonjour,

J'essaye tant bien que mal de créer une macro où l'utilsateur saisie des info insérer par ligne dans deux tableaux à la fois.
Dans l'idée , le code fonctionne sauf que je ne peux sortir de la boucle. Il me faudrait alors une petite fonction quitter à rajouter dedans (pour l'utilisateur).

Dans lae code il y a aussi une boucle If qui devait me permettre d'insérer une ligne quand je tomber sur une cellule avec "xlv" dedans. ca ne marche pas!!!

Voici le code, peut être arriverais vous à corriger les erreurs, histoire que je m'en sorte:



Sub Chargemententreprise()

i = 12
While (Not (Cells(i, 2) = ""))
If Cells(i, 2) = "xlv" Then
Rows(i).Insert Shift:=xlDown
End If

Lot = InputBox("N° du lot (ex: Lot1)")
Entre = InputBox("Nom de l'Entreprise:")
Marche = InputBox("Montant du Marché:")

Worksheets(3).Select
Cells(i, 2) = Lot
Cells(i, 4) = Entre
Worksheets(2).Select
Cells(i, 1) = Lot
Cells(i, 2) = Entre
Cells(i, 4) = Marche
i = i + 1
Wend
End Sub



(J'ai une réunion demain où je suis censé montrer quelque chose qui marche - il me reste plus que ca qui pose probleme - donc a vos bon coeur....)

Merci