Mettre en format specifique

Bonjour à tous

Pourriez vous m'aider en me proposant une macro capable de :

Dans la colonne B du fichier joint, je souhaiterais mettre en gras et police de taille 10 l'ensemble des caractères

se situant à Gauche des parenthèses soit exemple Le pont de Paris dans la suite "Le pont de Paris (75) France"

Merci de votre aide

Bonjour,

Sub Test()
Dim Cel As Range
Dim Position As Integer
    For Each Cel In Range("B5", Range("B" & Rows.Count).End(xlUp))
        Position = InStr(1, Cel, "(")
        With Cel.Characters(1, Position - 1).Font
            .FontStyle = "Gras"
            .Size = 10
        End With
    Next Cel
End Sub

A+

Merci de ton aide !!!!