Function Rechercher(Recherche As String, ZoneRecherche As Variant) As Range
Dim CellulesTrouvees As Range
Set CellulesTrouvees = ZoneRecherche.Find(What:=Recherche, After:=ActiveCell, LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If CellulesTrouvees Is Nothing Then
Set Rechercher = Nothing
Else
Set Rechercher = CellulesTrouvees
End If
End Function
Private Sub cmdrechercher_Click()
Dim Recherche As String
Dim ZoneRecherche, CellulesTrouvees As Range
Dim LastRow As Long
LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Recherche = txtrecherche.Text
Set ZoneRecherche = ActiveSheet.Range("A3:A" & LastRow)
Set CellulesTrouvees = Rechercher(Recherche, ZoneRecherche)
If CellulesTrouvees Is Nothing Then
MsgBox "Aucun résultat trouvé!", vbInformation, "Résultat de la recherche"
Else
CellulesTrouvees.Select
End If
End Sub