Bonjour
Essayez cela:
Sub SupprDansChaine()
Chaine = " string(23)" & "Parc Olympique Lyonnais"
Deb = InStr(Chaine, "string" ) 'recherche premier caractère à supprimer
Fin = InStr(Chaine, " )" ) 'recherche dernier caractère mot à supprimer
Chaine1 = Left(Chaine, Deb - 1)
Chaine2 = Mid(Chaine, Fin + 1, Len(Chaine) - Fin)
Chaine = Chaine1 + Chaine2
MsgBox Chaine
End Sub
Bon courage