Option Compare Text 'la casse n'est pas prise en compte
Sub MasqueLignesColonnes(plage As Range, txt1$, txt2$)
Dim cel As Range
txt1 = "*" & txt1 & "*"
txt2 = "*" & txt2 & "*"
Application.ScreenUpdating = False
plage.Rows.EntireRow.Hidden = True
plage.Columns.EntireColumn.Hidden = True
For Each cel In plage
If cel.Text Like txt1 Or cel.Text Like txt2 Then
cel.MergeArea.EntireRow.Hidden = False
cel.MergeArea.EntireColumn.Hidden = False
End If
Next
End Sub