Optimiser un code pour effacer selon conditions le début d’une

Bonjour,
les cellules de la colonne A comportent pour certaines la forme juridique ( SARL –SA-SCI-EIRL-EURL-SASU-EURL)
Pour être exploitable, le fichier ne doit pas comporter cette forme juridique ni l’espace situé derrière.

J’ai donc créé une macro qui le fait
Voici le fichier ;
https://www.cjoint.com/c/FJemlOpmhnW

Cependant la vitesse d’exécution de la macro est longue

Quelqu'un peut-il m'aider à optimiser le code , je vous remercie d’avance