Commande bouton Userform boucle

Bonjour,

J'ai réalisé une macro qui permet de recherche les valeur des cellules de la ligne un dans un plage de données
-->par exemple: recherche de A1 dans plage A3:A9.
Si cette valeur est présente au moins une fois dans la plage alors on passe à la cellule suivante (B1) dans la plage B3:B9.
Si la valeur n'est pas présente dans la plage alors le userform propose les veleurs de la plage


Pour cela j'ai créé un userform mais je ne parviens pas a associer le bouton oui au renouvellement jusqu'a la prochaine valeur non trouvée.

mon code


Private Sub BtnOui_Click()
'traitement du oui
userform_initialize
End Sub

Private Sub btnnon_Click()
'traitement du Non
Unload UserForm1
End Sub

Sub userform_initialize()

Dim fr As Range
Dim eng As Range
Dim org As Range

For i = 1 To 30

Plage = Cells(1, i).Value

With Worksheets("Compare").Range(Cells(4, i), Cells(14, i))

Set c = .Find(Plage, LookIn:=xlValues)

If c Is Nothing Then



'Exit Sub

'données import
Set org = (Cells(1, i))

'KOK3
Set fr = Range(Cells(5, i), Cells(10, i))
Set eng = Range(Cells(12, i), Cells(18, i))

ListBox3.RowSource = org.Address
ListBox4.RowSource = fr.Address
ListBox5.RowSource = eng.Address


End If

End With

Next

End Sub

Votre aide est donc la bienvenue!!

merci