Erreur d'exécution 9 l'indice n'appartient pas à la selection

Bonjour,
je commence à créer une base pour la gestion physique de stock et j'ai suivi ce vidéo sur youtube
https://www.youtube.com/watch?v=XWfV5rwilDY mais ce macro ne fonctionne pas et m'affiche un message d'erreur d'exécution 9
Dim i As Integer
i = 2
Do While Sheets("Recherche").Cells(i, 1) <> ""
If Sheets("Recherche").Cells(i, 1) Like reference Then
UserForm1.Label1.Caption = Sheets("Reference").Cells(i, 1).Value
UserForm1.Label4.Caption = Sheets("Reference").Cells(i, 2).Value
verif = "ok"
UserForm1.Show

End If
i = i + 1
Loop
If verif <> "ok" Then
MsgBox "Référence invalide."
End If
End Sub

comment je dois faire s'il vous plait?