Recherche de la position d’une cellule avec une donnée définie

Option Private Module
Option Explicit
Public Sub Utilisation()
Dim cel As Range
  Set cel = NièmeCel("Fin", 4, Worksheets(1).Columns("D"))
  If cel Is Nothing Then
    MsgBox "La 4ème cellule contenant ""Fin"" n'a pas été trouvée"
  Else
    MsgBox "La 4ème cellule contenant ""Fin"" est " & cel.Address
  End If
End Sub
Public Function NièmeCel(s As String, n As Integer, r As Range) As Range
' Renvoie la nième cellule contenant la valeur s
' Arguments : s                   [in]  Chaine de caractères cherchée
'             n                   [in]  Numèro de cellule (Nième)
'             r                   [in]  Plage de la recherche
' Retour    : Range               Cellule trouvée ou Nothing
Dim ctr As Integer
Dim adr As String
  Set NièmeCel = r.Find(what:=s, LookIn:=xlValues, lookat:=xlWhole)
  adr = NièmeCel.Address
  If Not NièmeCel Is Nothing Then
    For ctr = 2 To n
      Set NièmeCel = r.Find(what:=s, After:=NièmeCel, _
                            LookIn:=xlValues, lookat:=xlWhole)
      If NièmeCel.Address = adr Then
        Set NièmeCel = Nothing
        Exit For
      End If
    Next ctr
  End If
End Function