Problème réglé. Merci à Pijaku d'un autre forum.
Dim Lign As Long
Dim Chaine As String
With Sheets("Feuil1" ) ' à adapter ==> le nom de ta feuille
'de la lign 6 à 14 A ADAPTER
For Lign = 6 To 14
'vérifie la présence d'une parenthèse ouvrante dans la cellule
If InStr(.Cells(Lign, 5), "(" ) <> 0 Then
'on stocke, dans la variable Chaine le contenu de la cellule Col E
Chaine = .Cells(Lign, 5)
'on extrait la partie à gauche de (
.Cells(Lign, 5) = Left(Chaine, InStr(Chaine, "(" ) - 2)
'on extrait la partie à droite de (
.Cells(Lign, 6) = Right(Chaine, Len(Chaine) - InStr(Chaine, "(" ) + 1)
End If
'ligne suivante
Next
End With