Bonjour, Salut à tous !
Une fonction personnalisée que j'avais dans mes archives :
Function EPURERENTRE(tx As String, c1 As String, c2 As String)
Dim T, i%
Application.Volatile
T = Split(Replace(tx, c1, c2), c2)
For i = 1 To UBound(T) Step 2
T(i) = ""
Next i
EPURERENTRE = Replace(Join(T, c2), c2, "")
End Function
Utilisation identique aux fonctions natives d'Excel :
=EPURERENTRE(C2;"(";")")
NB- Elle fonctionne avec d'autres caractères que les parenthèses, des crochets par exemple où n'importe quoi, on indique les 2 caractères entre lesquels le texte doit être supprimé, il suffit donc que tout texte à supprimer soit compris entre ces 2 caractères.
On peut éventuellement faire la même chose en macro, en substituant la colonne de textes épurés à l'ancienne. Pour 20000, cela évite d'autres manipulations... Il faudrait dans ce cas confirmer que ton fichier original a la même structure que ton modèle.
Cordialement.