Public Function conseq(target As Range)
Application.Volatile
If target.Rows.Count <> 1 Then
conseq = "Erreur de sélection de range"
Exit Function
End If
For Each ele In target
If ele = "R" And ele.Offset(0, 1) = "R" And ele.Offset(0, 2) = "R" Then
conseq = conseq + 1
End If
Next ele
End Function