XL 2019 recherche V vba

Sub test()






        Dim cb1 As Variant

        
        Dim FirstFound As String ' definition des variable que l'on va utiliser
        Dim FoundCell As Range, rng As Range
        Dim myRange As Range, LastCell As Range
        'Valeur a chercher cb1
        cb1 = InputBox("Rentrer une valeur")
        
        Set myRange = ActiveSheet.UsedRange
        Set LastCell = myRange.Cells(myRange.Cells.Count)
        Set FoundCell = myRange.Find(what:=cb1, After:=LastCell, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)
        
        'Test pour voir si qlq chose est trouver
        If Not FoundCell Is Nothing Then
            FirstFound = FoundCell.Address
            
        Else

            GoTo NothingFound
        End If
        
        Set rng = FoundCell
        
        ' TEST POUR EMPECHER L'ERREUR SUR LA VALEUR TROUVEE
        

            
            'Tour jusqu'a que ça trouve tout
            Do Until FoundCell Is Nothing
                'Trouve la nouvelle cellule avec la valeur
                Set FoundCell = myRange.FindNext(After:=FoundCell)
                
                'Ajoute la valeur a la variable tableau
                Set rng = Union(rng, FoundCell)

                'Test pour sortir de la boucle
                If FoundCell.Address = FirstFound Then Exit Do
                'loop va recommencer la boucle
            Loop
            
            'selection du tableau
            
            rng.Select
            
            
            
            
                Exit Sub
    
    'Message d'erreur
NothingFound:
    
    MsgBox ("Aucune valeur " & cb1 & "        n'a été trouvé. Veuillez réessayer")
End Sub