Excel VBA - Plage renvoie rien

Le code suivant va chercher une cellule contenant 5/7 binnen 4h et quand il trouve la cellule il copie la valeur de la cellule-je sur la même ligne à une autre cellule. Maintenant, il y a quelques cas où ce texte ne peut être trouvé et j'obtiens une erreur. Comment pourrais-je gérer cette erreur?

Dim FoundRange As Range
Set FoundRange = Cells.Find("5/7 binnen 4h")
Range("I" & EmptyCell + 2).Value = Cells(FoundRange.Row, 9).Value
InformationsquelleAutor CustomX | 2012-02-23