Microsoft 365 InStr, c'est bien, mais trop court ! !

Function PrixVitrage(Cellule As Range) As Variant
'
Dim Vitrage As Range
Dim Libelle As String

    ' Tri des vitrages dans l'ordre décroissant
    With Range("t_Vitrage").ListObject.Sort
        .SortFields.Clear
        .SortFields.Add _
                Key:=Range("t_Vitrage[Taille]"), _
                SortOn:=xlSortOnValues, _
                Order:=xlDescending, _
                DataOption:=xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    ' Mise en forme du libellé
    Libelle = Replace(Cellule.Value, " ", "")
    Libelle = Replace(Libelle, ",", ".")

    ' Recherche de chaque vitrage dans le libellé
    PrixVitrage = ""
    For Each Vitrage In Range("t_Vitrage[Taille]")
        If Libelle Like "*" & Vitrage & "*" Then
            PrixVitrage = Vitrage.Offset(0, 1).Value
            Exit For
        End If
    Next

End Function

Public TriFait As Boolean
Function PrixVitrage(Cellule As Range) As Variant
'
Dim Vitrage As Range
Dim Libelle As String
    ' Tri des vitrages dans l'ordre décroissant
If Not TriFait Then
    With Range("t_Vitrage").ListObject.Sort
        .SortFields.Clear
        .SortFields.Add _
                Key:=Range("t_Vitrage[Taille]"), _
                SortOn:=xlSortOnValues, _
                Order:=xlDescending, _
                DataOption:=xlSortNormal
         .header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    TriFait = True
End If
    ' Mise en forme du libellé
    Libelle = Replace(Cellule.Value, " ", "")
    Libelle = Replace(Libelle, ",", ".")
    ' Recherche de chaque vitrage dans le libellé
    PrixVitrage = ""
    For Each Vitrage In Range("t_Vitrage[Taille]")
        If Libelle Like "*" & Vitrage & "*" Then
            PrixVitrage = Vitrage.offset(0, 1).Value
            Exit For
        End If
    Next
End Function

Private Sub Worksheet_Activate()
  TriFait = False
  'Debug.Print "TriFait", TriFait
End Sub

Function VitragePrix(CherchPrix As Range)
    VitragePrix = 0
    TxtSrc = Replace(CherchPrix.Value, ",", ".") 'Car avec Excel, le "point" du pavé numérique peut être une virgule
    TxtSrc = Replace(TxtSrc, " /", "/")
    TxtSrc = Replace(TxtSrc, "/ ", "/")
    TxtSrc = Replace(TxtSrc, "( ", " ")
    TxtSrc = Replace(TxtSrc, " )", " ")
    TxtSrc = Replace(TxtSrc, "(", " ")
    TxtSrc = Replace(TxtSrc, ")", " ")
    TxtSrc = Replace(TxtSrc, vbLf, " ")
    'Je cherche de la colonne contenant le début des vitrages, au cas ou une colonne serait insérée avant...
    Col = 1
    Do While Worksheets("Prix").Cells(1, Col).Value <> "Vitrage"
      Col = Col + 1
    Loop
    'Maintenant que j'ai trouvé le début des vitrages, je fouille la liste des "noms".
    Lign = 2
    Do While Worksheets("Prix").Cells(Lign, Col).Value <> ""
      NbTxtSrc = Len(TxtSrc): NbPrix = Len(Worksheets("Prix").Cells(Lign, Col).Value)
      For LongSrc = 1 To NbTxtSrc - NbPrix
        If Mid(TxtSrc, LongSrc, NbPrix) = Worksheets("Prix").Cells(Lign, Col).Value Then
          VitragePrix = Worksheets("Prix").Cells(Lign, Col + 1).Value
          Exit Do
        End If
      Next
      Lign = Lign + 1
    Loop
End Function

Function VitragePrix(CherchPrix As Range) As Double
    Dim TxtSrc As String
    Dim ws As Worksheet
    Dim colIndex As Integer
    Dim lastRow As Long
    Dim i As Long
    Dim dict As Object
    Dim key As Variant
    Dim value As Variant
    Dim replacements As Variant
    Dim j As Long

    ' Initialisation du dictionnaire
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' Référence à la feuille de calcul
    Set ws = Worksheets("Prix")
    
    ' Remplace les caractères problématiques dans la chaîne source
    replacements = Array(",", ".", " /", "/", "/ ", "/", "( ", " ", " )", " ", "(", " ", ")", " ", vbLf, " ")
    TxtSrc = CherchPrix.Value
    For j = LBound(replacements) To UBound(replacements) Step 2
        TxtSrc = Replace(TxtSrc, replacements(j), replacements(j + 1))
    Next j
    
    ' Trouve l'index de la colonne "Vitrage"
    colIndex = 1
    Do While ws.Cells(1, colIndex).Value <> "Vitrage"
        colIndex = colIndex + 1
    Loop
    
    ' Détermine la dernière ligne de données dans la colonne "Vitrage"
    lastRow = ws.Cells(ws.Rows.Count, colIndex).End(xlUp).Row
    
    ' Charge les données dans le dictionnaire
    For i = 2 To lastRow
        key = ws.Cells(i, colIndex).Value
        value = ws.Cells(i, colIndex + 1).Value
        dict(key) = value
    Next i
    
    ' Recherche dans le dictionnaire
    For Each key In dict.Keys
        If InStr(1, TxtSrc, key, vbTextCompare) > 0 Then
            VitragePrix = dict(key)
            Exit Function
        End If
    Next key
    
    ' Si aucun vitrage trouvé, retourne 0
    VitragePrix = 0
End Function