Aide sur le mode de recherche Find

Bonjour, voilà j'ai un petit problème avec la méthode Find, plutôt je ne sais pas comment faire au cas ou la valeur cherchée ne soit pas trouvée

Sub RechercheCalendrier2()

 Dim NumTache As String

 ' ---------- Tâche en cours ----------

 NumTache = Taches.LB_TachesAgent Worksheets("Calendrier").Select

 Range("A7").Select

 Cells.Find(What:=NumTache, After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True _ , SearchFormat:=False).Activate

 'Color en vert la case du calendrier selectionné, (Tâche Terminée)

 Range(ActiveCell, ActiveCell.Offset(4, 0)).Interior.ColorIndex = 46

 End If

 End Sub

Donc j'aimerais pouvoir lui dire si la valeur n'est pas trouvée,"Msgbox "Valeur introuvable"

si la valeur est trouvée tu coloris en vert.

Merci de votre aide.

Bonjour,

Sub RechercheCalendrier2()

 Dim NumTache As String
 Dim CellRecherchee As Range

 ' ---------- Tâche en cours ----------

 NumTache = Taches.LB_TachesAgent Worksheets("Calendrier").Select

 Range("A7").Select

 Set CellRecherchee = Cells.Find(What:=NumTache, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False)

 'Color en vert la case du calendrier selectionné, (Tâche Terminée)
 If Not CellRecherchee Is Nothing Then
     Range(ActiveCell, ActiveCell.Offset(4, 0)).Interior.ColorIndex = 46
 Else
    MsgBox "Valeur non trouvée !", vbCritical
 End If

 End Sub

Merci Eric, c'est exactement ce que je cherchais. Bonne journée.