XL 2019 Recherche à partir de plusieurs colonnes

Function SetUrl(Cel As Range)
    SetUrl = "https://www.societe.com/cgi-bin/liste?ens=on&ori=avance"
    SetUrl = SetUrl & "&nom=" & NoAccents(Cel.Text)
'    SetUrl = SetUrl & "&adr=" & NoAccents(Mid(Trim(Cel.Offset(, 1).Text), InStr(Trim(Cel.Offset(, 1).Text), " ") + 1))
    SetUrl = SetUrl & "&ville=" & NoAccents(Cel.Offset(, 3).Text)
    SetUrl = SetUrl & "&dep=" & Left(Cel.Offset(, 2).Text, 2)
End Function
Function NoAccents(Texte As String)
Dim I As Long
Const AChars = "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RChars = "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
    NoAccents = Trim(Texte)
    For I = 1 To Len(AChars)
        NoAccents = Replace(NoAccents, Mid(AChars, I, 1), Mid(RChars, I, 1))
    Next
End Function