Compter des cellules VBA

Dim plage As Range
Dim cel 
Dim cpt As Integer

   Set plage = Worksheets(1).Range("I14:L14")
   For Each cel In plage
      If cel.Value = "R" Then cpt = cpt + 1
   Next cel

   MsgBox "Nb : " & cpt

   Set plage = Nothing   

Dim plage As Range
Dim cel 
Dim cpt As Integer
Dim NbR As Integer
Dim Vrai As Boolean

   Set plage = Worksheets(1).Range("I14:P14")
   For Each cel In plage
      If cel.Value = "R" Then 
          cpt = cpt + 1
          NbR = NbR + 1
          If NbR = 4 Then Vrai = True
      End If
      NbR = 0
   Next cel

   If Vrai = False Then
       MsgBox "Nb : " & cpt
   Else
       MsgBox "Nb : " & cpt & ", 4 R à la suite"
   End If

   Set plage = Nothing  

!  I  !  J  !  K  !  L  !  M  !  N  !  O  !  P  !   

   R           R     R     R     R            R

Option Explicit   

Private Vrai As Boolean   
Private NbR As Integer   

Sub test()   
Dim plage As Range   
Dim cel   
Dim cpt As Integer   

Set plage = Worksheets(1).Range("I14:P14")   
    For Each cel In plage   
        If cel.Value = "R" Then   
            cpt = cpt + 1   
            If NbR < 4 Then cptR (1)   
        Else   
            If NbR <> 4 Then   
                NbR = 0   
            End If   
        End If   
       
    Next cel   

   If Vrai = False Then   
       MsgBox "Nb : " & cpt   
   Else   
       MsgBox "Nb : " & cpt & ", 4 R à la suite"   
   End If   

   Set plage = Nothing   
End Sub   

Sub cptR(ByVal str As Integer)   

    NbR = NbR + str   
    If NbR = 4 Then Vrai = True   
       
End Sub