Microsoft 365 Debut d'une macro en fonction d'une cellule varible

              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
        Dim cb1 as Variant
        
        'Valeur a chercher cb1, 
        cb1 = InputBox("Valeur à chercher")
        Set myRange = ActiveSheet.Range("votre plage de recherche") 'Ici vous supprimez le ActiveSheet et vous renseignez le classeur ou la feuille sur laql est effectuée la recherche
        Set LastCell = myRange.Cells(myRange.Cells.Count)
        Set FoundCell = myRange.Find(what:=cb1, After:=LastCell, LookAt:=xlPart)
        
        'Test pour voir si qlq chose est trouver
        If Not FoundCell Is Nothing Then
            FirstFound = FoundCell.Address
            
        Else
            
            GoTo NothingFound    'Vous devez définir votre nothingFounD en bas de code après avoir mis ExitSub  vous pouvez mettre NothingFound : MsgBox("rien n'a été trouvé")
        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)
            
            
            If FoundCell.Address = FirstFound Then Exit Do
            
        Loop
        
        'selection du tableau
        rng.Select       ' rng représente toute les cellules ayant une correspondances