Sub colonne_couleur()
Dim c%, r%, x%, Ro%, Co%
Ro = ActiveCell.Row
Co = ActiveCell.Column
For c = Co To Co + Selection.Columns.Count - 1
For r = Ro To Ro + Selection.Rows.Count - 1
If Cells(r, c).Interior.ColorIndex = 5 Then
x = x + 1
Exit For
End If
Next r
Next c
MsgBox "il y a " & x & " colonnes contenant au moins une cellule de couleur bleue"
End Sub