Bonjour Pierre et le forum,
Un exemple de comptage de cellules vides dans une plage.
Sub CompterCellulesVides()
'Déclaration des variables
Dim Plage As Range, PlageVide As Range, C As Range
Dim N As Integer
'Définition de la plage
Set Plage = Sheets('Feuil1').Range('A4:F21')
'Sélection des cellules vides
Set PlageVide = Plage.SpecialCells(xlCellTypeBlanks)
'Comptage des cellules vides
For Each C In PlageVide
N = N + 1
Next C
'Affichage du nombre de cellules vides
Sheets('Feuil1').Range('A1') = N
End Sub
Cordialement
Bernard