Sub Masquer_Afficher()
With ActiveSheet
If .DrawingObjects(1).Text Like "Masquer*" Then
.DrawingObjects(1).Text = "Afficher Formation A et lignes non colorées"
.Columns("I:J").Hidden = True
.[A4].CurrentRegion.AutoFilter 1, vbYellow, xlFilterCellColor
Else
.DrawingObjects(1).Text = "Masquer Formation A et lignes non colorées"
.Columns("I:J").Hidden = False
If .FilterMode Then .ShowAllData
End If
End With
End Sub