Supprimer ce qui est entre parenthèse sur une colonne

Bonjour,

Je fais à nouveau appel à vous pour un problème VBA.

Je recherche ici dans la colonne C à partir de C2 à supprimer ce qui est écrit entre parenthèse. Je voudrai aussi qu'il garde un espace entre chaque zone de texte.

En cherchant un peu j'ai réussi à trouver un code que j'ai adapté. Cependant celui supprime les premières chaines de caractères qui ne sont pas entre parenthèse.

Dim tData, tSplit() As String
Dim sData As String

iRow = Range("C" & Rows.Count).End(xlUp).Row
tData = Range("C2:C" & iRow).Value

For x = 1 To UBound(tData, 1)
    sData = ""
    tSplit = Split(tData(x, 1), "(")
    For y = 1 To UBound(tSplit)
    sData = sData & Split(tSplit(y), ")")(1)
   Next
    tData(x, 1) = sData
Next

Range("C2").Resize(UBound(tData, 1)) = tData

Auriez vous une solution ?

Je vous fourni un exemple.

En vous remerciant par avance.

Bonjour SIG33,

En retour ton fichier essai avec macro.

Bons tests, bonne continuation.

Bonjour X Cellus,

Merci pour ta réponse, cependant dans ton code, ce qui est entre parenthèse n'est pas supprimé. Il n'y a que les parenthèse de supprimés.

A nouveau,

Contresens de ma part. J'ai lu trop vite. Je suis parti pour supprimer les ().

Je te renvoie le fichier sous peu.

Suite,

Donc en retour fichier supprimant ce qui est entre parenthèse ainsi que les parenthèses.

Bons tests, bonne continuation.

Merci beaucoup X Cellus, c'est parfait.