Boucle do loop while

Bonjour,
Je suis débutante en VBA et je viens de me lancer dans une des premières macros et je ne comprends pas pourquoi ma boucle do loop while ne fonctionne pas.
Do
Sheets("sheet2").Select
POcomplet = Cells(k, 1)
Sheets("ListePO").Select
For Each cell1 In Range("B2:B200")
Sheets("ListePO").Select
If cell1 = POcomplet Then
cell1 = "complet"
End If
Sheets("sheet2").Select
Next
k = k + 1
Loop While Cells(k, 1) <> ""
J'ai 2 listes: une dans sheet2 et l'autre dans liste PO et je souhaite comparer les 2, si une des valeurs dans liste PO et également présente dans sheet 2 je remplace alors la valeur par "complet"
Je voulais faire cela avec deux boucles do while imbriquées mais cela ne fonctionne pas, j'ai alors choisi l'alternative avec des boucles for each et là cela fonctionne. Cependant c'est très long et je pense qu'avec un do while cela serait plus efficace.
Est ce que qqn aurait une idée du problème?
Merci d'avance