Bonjour,

Via le code ci-dessous, je supprime "TOTO" s'il est trouvé dans la cellule.
Mais je souhaitrais que ce soit valable pour "Toto" ou "toto" également.
Pourriez-vous me dire quel petit ajustement je peux faire, pour que ma variable "Chercher" ne prenne pas en compte uniquement ce que j'indique en majuscule ?


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Libelle = ActiveCell.Offset(0, 2).Value
chercher = "TOTO"        
 
    Resultat = InStr(1, Libelle, chercher)
    If Resultat <> 0 Then
 
     Libelle_new = Replace(Libelle, "TOTO", "")
 
     ActiveCell.Offset(0, 3).Value = Libelle_new
Merci à tous pour votre aide,