If sous repertoire contient

Option Explicit
Sub Test()
Dim dossier As String
Dim sousDos As String
Dim fichier As String
Dim cherche As String
Dim trouvee As Boolean
Dim t() As String
Dim i As Long

  dossier = "C :\Users\MOI\Documents\ENTREPRISE\devis\"
  cherche = "19123001"
  sousDos = Dir(dossier, vbDirectory)
  Do While sousDos <> ""
    If sousDos <> "." And sousDos <> ".." Then
      If (GetAttr(dossier & sousDos) And vbDirectory) = vbDirectory Then
        i = i + 1
        ReDim Preserve t(1 To i)
        t(i) = dossier & sousDos & "\"
      End If
    End If
    sousDos = Dir
  Loop
  For i = LBound(t) To UBound(t)
    fichier = Dir(t(i))
    Do While fichier <> ""
      If InStr(1, fichier, cherche, vbBinaryCompare) > 0 Then
        trouvee = True
        Exit Do
      End If
      fichier = Dir
    Loop
    If trouvee Then Exit For
  Next i
  If trouvee Then MsgBox fichier

End Sub

 If (GetAttr(dossier & sousDos) And vbDirectory) = vbDirectory Then

dossier = "C:\Users\MOI\Documents\ENTREPRISE\devis\"

sousDos = Dir(dossier, vbDirectory)

cherche = "*" & Sheets("renseignement client").Range("B22").Value & "*"

Option Explicit
Sub Test()
Dim dossier As String
Dim sousDos As String
Dim cherche As String
Dim trouvee As Boolean

  dossier = "C:\Users\MOI\Documents\ENTREPRISE\devis\"
  cherche = Worksheets("renseignement client").Range("B22").Value
  sousDos = Dir(dossier, vbDirectory)
  Do While sousDos <> ""
    If sousDos <> "." And sousDos <> ".." Then
      If (GetAttr(dossier & sousDos) And vbDirectory) = vbDirectory Then
        If InStr(1, sousDos, cherche, vbBinaryCompare) > 0 Then
          trouvee = True
          Exit Do
        End If
      End If
    End If
    sousDos = Dir
  Loop
  If trouvee Then MsgBox sousDos

End Sub

Sub RECHERCHE()
Dim rngTrouve As Range
Dim strChaine As String, firstAddress As String
Dim n As Long
n = 1


strChaine = "*" & Sheets("renseignement client").Range("B23").Value & "*"
Set rngTrouve = Sheets("Feuil1").Columns(3).Cells.Find(strChaine, , xlValues, xlWhole)
If Not rngTrouve Is Nothing Then
firstAddress = rngTrouve.Address
Do
MsgBox "Trouvé dans la cellule " & rngTrouve.Address(0, 0) & " !"


Sheets("renseignement client").Range("D23").Value = Sheets("renseignement client").Range("D23").Value + 1

Loop While rngTrouve Is Nothing And rngTrouve.Address <> firstAddress


Else
MsgBox "Pas trouvé"
End If
End Sub

Option Explicit
Sub Test()
Dim n°devis As String
  
  n°devis = NumeroDevis
  MsgBox n°devis
  
End Sub

Private Function NumeroDevis() As String
Dim dossier As String
Dim sousDos As String
Dim cherche As String
Dim n°devis As Integer
Dim maximum As Integer

  dossier = "C :\Users\MOI\Documents\ENTREPRISE\devis\"
  dossier = ThisWorkbook.Path & "\Tmp\"
  cherche = Format(Date, "yymmdd")
  sousDos = Dir(dossier, vbDirectory)
  Do While sousDos <> ""
    If sousDos <> "." And sousDos <> ".." Then
      If (GetAttr(dossier & sousDos) And vbDirectory) = vbDirectory Then
        If sousDos Like "*" & cherche & "??*" Then
          n°devis = Val(Left(Mid(sousDos, InStr(1, sousDos, cherche) + Len(cherche)), 2))
          If n°devis > maximum Then maximum = n°devis
        End If
      End If
    End If
    sousDos = Dir
  Loop
  NumeroDevis = cherche & Format(maximum + 1, "00")

End Function

  Application.Volatile

Option Explicit
Sub Test()
Dim n°devis As String
  
  n°devis = NumeroDevis
  MsgBox n°devis
  
End Sub

Private Function NumeroDevis() As String
Dim dossier As String
Dim sousDos As String
Dim nomPrenom As String
Dim cherche As String
Dim n°devis As Integer
Dim maximum As Integer

  Application.Volatile
  nomPrenom = Worksheets("renseignement client").Range("B4").Value
  dossier = "C :\Users\MOI\Documents\ENTREPRISE\devis\" & nomPrenom & "\"
  cherche = Format(Date, "yymmdd")
  sousDos = Dir(dossier, vbDirectory)
  Do While sousDos <> ""
    If sousDos <> "." And sousDos <> ".." Then
      If (GetAttr(dossier & sousDos) And vbDirectory) = vbDirectory Then
        If sousDos Like "*" & cherche & "??*" Then
          n°devis = Val(Left(Mid(sousDos, InStr(1, sousDos, cherche) + Len(cherche)), 2))
          If n°devis > maximum Then maximum = n°devis
        End If
      End If
    End If
    sousDos = Dir
  Loop
  NumeroDevis = cherche & Format(maximum + 1, "00")

End Function