Bouton de recherche en VBA sans respecter la casse

Bonjour,

Je viens de créer un bouton qui ouvre une box pour faire une recherche dans le classeur sur un mot. Tout fonctionne sauf que la casse d'écriture doit être respecter pour qu'il le trouve. Comment faire pour que la casse ne soit pas forcément respectée svp ?

Voici mon code :

Sub BTN_RECHERCHE()
'
' Bouton de recherche de fournisseur ou mot clé Macro
'
Dim Str_Plage As String
Dim Cel As Range
Dim Feuil As Worksheet
Dim Str_critère As String
Dim Str_critèrere As String
Dim X As Byte
Dim Message, Title, Default, Title2, Message2

Message = "Entrez le fournisseur recherché : "
Message2 = "Désolé. Ce fournisseur n'existe pas."
Title = "Recherche de message"
Title2 = "Recherche infructueuse"
Default = ""
Str_Plage = "A1:P3000"

Str_critère = InputBox(Message, Title, Default)
If Str_critère = "" Then
Exit Sub
End If

For Each Feuil In Sheets
For Each Cel In Feuil.Range(Str_Plage)
If InStr(Cel, Str_critère) Then
Feuil.Activate
Cel.Activate
X = MsgBox("Fournisseur """ & Str_critère & """ trouvé dans :" & Chr(13) & Feuil.Name & Chr(13) & _
"Est ce que cela correspond à votre recherche ?" & Chr(13) & Chr(13) & _
"Oui : on arrête la recherche" & Chr(13) & _
"Non : on continue la recherche " & Chr(13), vbOKCancel + _
vbQuestion + vbYesNoCancel, "Référence trouvée")
Select Case X
Case 6 'oui
Exit Sub
Case Else 'Non
End Select
End If
Next Cel
Next Feuil

MsgBox ("Désolé. Je ne trouve pas le fournisseur " + Str_critère)
End Sub

Bonjour,

Tout en haut du module, au-dessus de "Sub BTN_RECHERCHE()", ajoutez "Option Compare Text"

Cdlt

Merci beaucoup cela fonctionne parfaitement