Remplacer texte variable vba

Bonjour,
J’aurais besoin de votre aide pour identifier un texte variable et le remplacer par un autre, mais je bloque sur le code.
Le but de ce code est d’effacer les chiffres qui ce trouve après AUS sans effacer le reste du texte

Quelque exemple de texte:

AUS 20 + TR PU1 + AQ
200 2P + AUS 1070

 Sub remplacer()

ma_chaine = "AUS 400 + libre pu01"
ma_chaine = Replace(ma_chaine, "AUS @@@", "AUS ") 

Résultat désiré : AUS + libre pu01 

End Sub

Je pensais chercher d’abord le texte "AUS " puis chercher le texte jusqu’au prochain espace mais je ne vois pas comment mis prendre