Bonsoir Macanche,
Tu touveras en pièce jointe un exemple qui devrait répondre au problème posé.
=====================================================
Private Sub But_Find_Click()
Dim debvar As Integer
'Effacement des cellules des la colonne A de Feuil2
Sheets("Feuil2").UsedRange.Columns("A").ClearContents
'Initialisation indice ligne stockage valeur cherchée dans Feuil2
i = 1
'Analyse des cellules de la colonne "A" de la Feuil1
For Each Cel In Sheets("Feuil1").UsedRange.Columns("A").Cells
Chn = Cel.Value
'Itération de la recherche dans cellule courante tant qu'il y a des ((
Do While Len(Chn) <> 0
j = InStr(Chn, "((")
If j = 0 Then Exit Do
k = InStr(Chn, "))")
If k = 0 Then Exit Do
txt = Mid(Chn, j + 2, k - j - 2)
If Len(txt) <> 0 Then
Sheets("Feuil2").Cells(i, 1) = "((" & txt & "))"
i = i + 1
End If
Chn = Right(Chn, Len(Chn) - k - 1)
Loop
'Itération sur cellule suivante
Next Cel
Sheets("Feuil2").Activate
End Sub
=====================================================
Si celà ne colle pas n'hésite pas à me recontacter.
Cordialement ....
Omicron