Sub test_A()
If Application.CountBlank(Range("A1:A3")) = 3 Then
MsgBox "Elles sont vides"
Else
MsgBox "Elles ne sont pas vides"
End If
End Sub
Sub test_B()
MsgBox "Elles sont " & IIf(Application.CountBlank(Range("A1:A3")) = 3, "vides", "remplies ou presque...")
End Sub