Compter le nombre de cellules vides dans une plage discontinue

Sub test()
Set maPlage = Worksheets("Feuil1").Range("B9:B13,D913,F9:F13")
For Each cel In maPlage
 If cel.Value = "" Then
  MsgBox "Il y a des cellules vides"
  Exit Sub
 End If
Next
MsgBox "Toutes les cellules sont remplies"
End Sub

Sub toto()

Dim Response&, Zone As Range, maPlage As Range

    Set maPlage = Worksheets("Feuil1").Range("B9:B13,D913,F9:F13")
    
    For Each Zone In maPlage.Areas
        Response = Response + Application.WorksheetFunction.CountBlank(Zone)
    Next
    
    If Response > 0 Then
    
    MsgBox "Il y a des cellules vides"
    
    Else
    
    MsgBox "Toutes les cellules sont remplies"
    
    End If

End Sub

Sub vide1()
  Dim P, n As Byte
  P = Array("B9:B13", "D9:D13", "F9:F13")
  For n = 0 To UBound(P)
    If Application.CountBlank(Range(P(n))) > 0 Then
      MsgBox "Il y a des cellules vides !"
      Exit Sub 'pas besoin de continuer
    End If
  Next
  MsgBox "Toutes les cellules sont remplies"
End Sub
'------------------------------
Sub Vide2()
  Dim P, n As Byte, x As Long, R As String
  P = Array("B9:B13", "D9:D13", "F9:F13")
  For n = 0 To 2
    x = Application.CountBlank(Range(P(n)))
    If x > 0 Then R = R & P(n) & "(" & x & ")" & vbLf
  Next
  If R = "" Then
    MsgBox "Toutes les cellules sont remplies"
  Else
    MsgBox "Il y a des cellules vides en" & vbLf & R, , ""
  End If
End Sub