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

Private Sub CommandButton1_Click()

Dim Reference As String
Dim i As Integer
BLeft = 2
BTop = 40 
BWidth = 72
BHeight = 24
Dim obj As Object
Dim Code As String

Reference = InputBox("Saisie de la référence de la pièce : ", Recherche)

For i = 5 To 200

Do While Reference = Cells(i, 4).Value 'Then
Cells(i, 4).EntireRow.Font.Color = RGB(4, 139, 154)
Set obj = CreateObject("Excel.Application")
Set obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
   Link:=False, DisplayAsIcon:=False, Left:=2, Top:=60, Width:=72, Height:=24)
   obj.Name = "BoutonTest"

'Le texte de la macro
    Code = "Sub BoutonTest_Click()" & vbCrLf
    Code = Code & "Call Tester" & vbCrLf
   Code = Code & "End Sub"
'Ajoute la macro en fin de module feuille
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule
        .insertlines .CountOfLines + 1, Code
   End With
  
   With BoutonTest
 BoutonTest.Visible = True
   End With

Loop
Next i

If Reference <> Cells(i, 4).Value Then
MsgBox "Cette référence n'existe pas"
Exit Sub

End If

End Sub


Private Sub BoutonTest_click()

Dim i As Integer
For i = 5 To 200

 If Cells(i, 4).EntireRow.Font.Color = RGB(4, 139, 154) Then
 Cells(i, 4).EntireRow.Font.Color = RGB(0, 0, 0)
 End If
 
 Next i
 
 With BoutonTest
 BoutonTest.Visible = False

 End With

End Sub