code tri alphabétique

bonjour à tous

j'ai une série de codes qui me permet de faire une recherche alphabétique dans mon classeur
voici le code du A

Sub AA()

If Intersect(ActiveCell, Range("A:A")) Is Nothing Then Range("A5").Select
Range("A:A").Find(What:="A*", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=True).Select

End Sub

ça fonctionne très bien sauf quand le A n'existe pas dans le tableau
existe t il un moyen d'éviter le plantage quand la lettre recherchée n'existe pas ?

Merci de vos réponses
Kinel