Comment faire pour masquer toutes les lignes suivant une condition ?

3 exemples :
1°) Toutes les lignes dont les cellules de la colonne C contiennent "toto"

sub toto()
 For Each ligne In ActiveSheet.UsedRange.Rows
 r = ligne.Row
 cherché = Application.Find("toto", Cells(r, 3))
 If Not (IsError(cherché)) Then _
 Cells(r, 3).EntireRow.Hidden = True
 Next
 end sub

2°) Toutes les lignes dont les cellules de la colonne C contiennent "toto" ou "riri"

sub totoriri()
 For Each ligne In ActiveSheet.UsedRange.Rows
 r = ligne.Row
 chercheToto = Application.Find("toto", Cells(r, 3))
 chercheRiri = Application.Find("riri", Cells(r, 3))
 If Not (IsError(chercheToto)) Or Not _
 (IsError(chercheRiri)) Then Cells(r, 3).EntireRow.Hidden = True
 Next
 end sub

3°) Toutes les lignes dont les cellules de la colonne C contiennent un mot qui commence par 'Tou"

sub tou()
 For Each ligne In ActiveSheet.UsedRange.Rows
 r = ligne.Row
 chercheTou = Left(Cells(r, 3), 3)
 If chercheTou = "Tou" Then Cells(r, 3).EntireRow.Hidden = True
 Next
 end sub

Attention, Toto est dif
férent de toto et de TOTO. autre solution, tu peux mettre un filtre automatique et dans le filtre de la colonne"C" choisir personnalisé et différent de :toto ou différent de :Tou?