Si une chaîne de texte existe, sélectionnez une cellule contenant une chaîne de texte

J'ai enregistré une macro qui trouve une chaîne de texte puis la supprime. Mon problème est que parfois cette chaîne de texte n'existe pas. J'apprécierais un peu d'aide pour changer la macro afin de vérifier si la chaîne de texte existe, puis la sélectionner. Voici ce que j'ai actuellement. Merci d'avance.

Cells.Find(What:="Test" _
, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:= _
xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) _
.Activate
Selection.ClearContents

Range.Findretourne Nothingquand le terme de recherche est introuvable, cela devrait donc fonctionner:

Set found = Cells.Find(What:="Test" _
, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:= _
xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If Not found Is Nothing Then
    found.Activate
    found.ClearContents
End If

Vous pouvez laisser de côté found.Activatesi vous ne voulez pas déplacer le curseur à l'endroit où la chaîne est trouvée.