Sub comptevide()
Dim i&, j&, nbcel&, tablo, aux
i = Range("g3").End(xlDown).Row
If i <= 2 Then Exit Sub
tablo = Range("k3:q" & i).Value
For i = 1 To UBound(tablo)
aux = ""
For j = 1 To UBound(tablo, 2): aux = aux & tablo(i, j): Next j
aux = Replace(aux, "0", "")
If Len(Replace(aux, " ", "")) > 0 Then nbcel = nbcel + 1
Next i
MsgBox ("nbr lignes affichées : " & nbcel)
End Sub