[SIZE=2][COLOR=Blue]Sub CountBlanksF()
' Déclaration des variables
Dim Holder As Object
Dim Answer As Integer
' Crée un objet nommé Holder égal à la plage de cellules
'sélectionnée dans une InputBox
Set Holder = _
Application.InputBox("Indiquer la plage de cellules à vérifier", _
"Compteur de cellules vides", Type:=8)
' Initialise le compteur à zéro
Answer = 0
' Compte chaque cellule vide
For Each x In Holder
If IsEmpty(x.Value) Then Answer = Answer + 1
'ici tu pourrais adapter:
'If IsEmpty(x.Value) And x.Offset(0,1)="X" Then Answer = Answer + 1
Next x
' Renvoie la réponse dans une MsgBox
MsgBox "Il y a " & Answer & " vides dans cette plage de cellules."
End Sub