Sub Macro1()
Dim PL As Range 'déclare la variable PL (PLage)
Dim CB As Range 'déclare la variable CB (Cellules Bleues)
Dim CEL As Range 'déclare la variable CEL (CELlule)
Dim MSG As String 'déclare la variable MSG (MeSsaGe)
Set PL = Range("B6:H43") 'définit la plage PL
For Each CEL In PL 'boucle sur toutes les cellules CEL de la plage PL
If CEL.Font.Color = 12611584 Then 'condition : si la couleur de la police de la cellule CEL est bleue
'définit le message MSG (si MSG est vide, l'adresse de la cellule CEL, sinon rajoute un saut à la ligne)
MSG = IIf(MSG = "", CEL.Address(0, 0), MSG & Chr(13) & CEL.Address(0, 0))
End If 'fin de la condition
Next CEL 'prochaine cellule de la boucle
MsgBox MSG 'renvoie l'addresse de la plage CB des cellues bleues dans un message
End Sub