VBA, compter le nombre de ligne non masquée

Private Sub CommandButton3_Click() 
Dim R As Double
Dim l As Double
For l = 1 To Cells(65536, 1).End(xlUp).Row
    If Not Rows(l).Hidden Then R = R + 1
Next l
MsgBox ("il y a " & R & " lignes visibles dans la colonne A")
End Sub

On Error Resume Next        ' si erreur on passe à la ligne suivante
msg = InputBox("quelle est la moyenne glissante? ")

If msg = 0 Then Exit Sub    ' si "Annuler" est utilisé on sort de la macro
On Error GoTo 0             ' le contrôle erreur est remis en fonction

Dim msg As Variant

 msg = InputBox("quelle est la moyenne glissante? ")

If msg = "" Then Exit Sub    ' si "Annuler" est utilisé on sort de la macro

For Each c In ActiveSheet.Range("a1:I30")

If c < Val(msg) And c <> "" Then
        c.Interior.Color = RGB(168, 168, 168)
Else
        c.Interior.Color = xlNone
End If

Next

Private Sub CommandButton1_Click()
Dim var As Integer
var = 2
Do While Cells(var, 1) <> ""
    If Cells(var, 2) > 100 Then
        Range(Cells(var, 1), Cells(var, 2)).Font.Bold = True
    End If
    var = var + 1
Loop
End Sub

=ENT(MOD(ENT((A1-2)/7)+0,6;52+5/28))+1

Private Sub CommandButton1_Click()

Dim c As Range
Dim var As Integer
var = 2

For Each c In ActiveSheet.Range("c2:l27")

If c <> "" And Cells(c.row, var) = mp Then
c.Interior.ColorIndex = 4
End If

Next

If c <> "" And Cells(c.row, var) = mc Then
c.Interior.ColorIndex = 3
End If


If c <> "" And Cells(c.row, var) = df Then
c.Interior.ColorIndex = 1
End If


End Sub