Sub toto()
Dim nr&, r&, v&, Cel As Range
With Selection
For Each Cel In .Cells
If Cel.Value = "" Then v = v + 1 Else Exit For
Next
If v = .Cells.Count Then _
MsgBox "Toutes les cellules de la selection (" & .Address(0, 0) & ") contiennent """"." Else _
MsgBox "Au moins une cellule de la selection (" & .Address(0, 0) & ") ne contient pas """"."
For Each Cel In .Cells
If Cel.Interior.ColorIndex <> 3 Then r = r + 1 Else Exit For
Next
If r = .Cells.Count Then _
MsgBox "Aucune cellule de la selection (" & .Address(0, 0) & ") n'a un fond rouge." Else _
MsgBox "Au moins une cellule de la selection (" & .Address(0, 0) & ") a un fond rouge."
For Each Cel In .Cells
If Cel.Interior.ColorIndex = 3 Then nr = nr + 1
Next
If nr = 0 Then _
MsgBox "Aucune cellule de la selection (" & .Address(0, 0) & ") n'a un fond rouge." Else _
MsgBox nr & " cellule" & IIf(nr > 1, "s", "") & " de la selection (" & .Address(0, 0) & ") " & IIf(nr > 1, "ont", "a") & " un fond rouge."
If r = .Cells.Count And v = .Cells.Count Then _
MsgBox "Aucune cellule de la selection (" & .Address(0, 0) & ") n'a un fond rouge" & vbLf & "et toutes les cellules de la selection contiennent """"." Else _
MsgBox "Au moins une cellule de la selection (" & .Address(0, 0) & ") a un fond rouge" & vbLf & "ou ne contient pas """"."
End With
End Sub