Sub Col()
Dim i&, Flag As Boolean
For i = 1 To Application.Columns.Count
If Sheets("Toto").Columns(i).Hidden = True Then
Flag = True
Exit For
End If
Next i
If Flag Then
MsgBox "Au moins une colonne est masquée ", 64, "Traitement avec"
Else
MsgBox "Aucune colonne n'est masquée", 64, "Traitement sans"
End If
End Sub