XL 2016 Recherche sur plusieurs feuilles et selection de ligne d'après une textbox

Private Sub CommandButton1_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim R As Range 'déclare la variable R (Recherche)
Dim PA As String 'déclare la variable PA (Première Adresse)

If Me.TextBox1.Value <> "" Then 'condition 1 : si la TExtBox1 n'est pas vide
    For Each O In Worksheets 'boucle sur tous les onglets O du classeur
        Set R = Nothing: PA = "" 'vide les variable PA et R
        Set R = O.Cells.Find(Me.TextBox1.Value, , xlValues, xlWhole) 'définit la recherche R (recherche la valeur eacte de la TextBox1 dans tout l'onglet O)
        If Not R Is Nothing Then 'condition 2 : s'il existe au moins une occurrence trouvée
            PA = R.Address 'définit la première adresse PA
            Do 'exécute
                O.Rows(R.Row).Interior.ColorIndex = 3 'colore la ligne de l'occurrence trouvée en rouge
                Set R = O.Cells.FindNext(R) 'redéfinit la recherche R (occurrence suivante)
            Loop While Not R Is Nothing And R.Address <> PA 'boucle tant qu'il existe de nouvelles occurrences ailleurs qu'en PA
        End If 'fin de la condition 2
    Next O 'prochain onglet de la boucle
End If 'fin de la condition 1
End Sub

Private Sub CommandButton1_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim R As Range 'déclare la variable R (Recherche)
Dim PA As String 'déclare la variable PA (Première Adresse)

If Me.TextBox1.Value <> "" Then 'condition 1 : si la TExtBox1 n'est pas vide
    For Each O In Worksheets 'boucle sur tous les onglets O du classeur
        Set R = Nothing: PA = "" 'vide les variable PA et R
        Set R = O.Cells.Find(Me.TextBox1.Value, , xlValues, xlWhole) 'définit la recherche R (recherche la valeur eacte de la TextBox1 dans tout l'onglet O)
        If Not R Is Nothing Then 'condition 2 : s'il existe au moins une occurrence trouvée
            PA = R.Address 'définit la première adresse PA
            Do 'exécute
                O.Activate 'active l'onglet O
                O.Rows(R.Row).Select 'sélectionne la ligne de l'occurrence trouvée
                If MsgBox("Continuer la recherche ?", vbYesNo, "RECHERCHE") = vbNo Then Exit Sub 'si "Non" au message sort de la procédure
                Set R = O.Cells.FindNext(R) 'redéfinit la recherche R (occurrence suivante)
            Loop While Not R Is Nothing And R.Address <> PA 'boucle tant qu'il existe de nouvelles occurrences ailleurs qu'en PA
        End If 'fin de la condition 2
    Next O 'prochain onglet de la boucle
End If 'fin de la condition 1
End Sub