Bonjour a tous

je cherche un moyen plus simple que celui ci dessous et sans boucle donc avec une fonction existante
pour déterminer l'adresse d'une plage de cellules dans une colonne ayant la même valeur

je ne veux pas supprimer les doublons alors remove duplicate on laisse tomber

les valeur sont collectionnées dans un dico(Sripting.Dictionary)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
For Each elem In dico
            debut = .Range("d" & Rows.Count).EntireColumn.Find(What:=elem, SearchDirection:=xlNext).Address
            fin = .Range("d1").EntireColumn.Find(What:=elem, SearchDirection:=xlPrevious).Address
            MsgBox debut & ":" & fin
 
        Next


une idée????