Sub Masquer()
With ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell)
With ActiveSheet.[A4].Resize(.Row, .Column)
.Cells(2, .Columns.Count + 1).FormulaR1C1 = "=(RC1="""")+(RC1=""lyon"")"
.AdvancedFilter xlFilterInPlace, .Cells(1, .Columns.Count + 1).Resize(2)
.Cells(2, .Columns.Count + 1) = ""
End With
End With
End Sub
Sub Afficher()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub