Impossible de sélectionner plusieurs cellules avec mon code

Bonjour, j'ai besoin d'aide pour un petit quelque chose, le code ci-dessous me permet de supprimer la fonction HYPERLINK et de garder seulement le nom de la cellule, or le problème est qu'il fonctionne mais seulement lorsque je sélectionne une seule cellule, et j'aimerais qu'il fonctionne en sélectionnant plusieurs cellules

Le code en question :

Sub Supp_Lien
    Dim Supp As String
    Supp = Selection.Formula
    Adresse = Split(Supp,",")
    Adresse = Replace(Adresse(Ubound(Adresse), Chr(34), "")
    Adresse = Replace(Adresse, Chr(41), "")
    Selection.Formula = Adresse
End Sub

Bonjour,

Un essai :

Sub Supp_Lien

Dim Adresse As String, Cel As Range

For Each Cel In Selection
    Adresse = Split(Cel.Formula,",")
    Cel.Formula = Replace(Replace(Adresse(Ubound(Adresse)), Chr(34), ""), Chr(41), "")
Next Cel

End Sub

C'est ça, ça marche ! Merci beaucoup pour ton aide