Sub Colonnes_filtrees()
If ActiveSheet.AutoFilter Is Nothing Then Exit Sub
Dim i%, n%, mes$
For i = 1 To ActiveSheet.AutoFilter.Filters.Count
If ActiveSheet.AutoFilter.Filters(i).On Then
n = n + 1
mes = mes & "-" & Split(ActiveSheet.AutoFilter.Range.Columns(i).EntireColumn.Address(0, 0), ":")(0)
End If
Next
If n Then MsgBox n & " colonne(s) filtrée(s) => " & Mid(mes, 2)
End Sub