Compteur excel

Private Sub Worksheet_Change(ByVal Target As Range)    
If Not Intersect([B1], Target) Is Nothing And [B1]= "retard" Then   
[A1]= [A1]+ 1    
End If    
End Sub

Sub compter() 
compte = 0 
With ActiveSheet 
nbrligne = .Cells(.Columns(9).Cells.Count, 2).End(xlUp).Row - 1 
For i = 5 To nbrligne 
If .Cells(i, 9) = "Non traité" And .Cells(i, 10) = "Retard début OP" Then 
compte = compte + 1 
End If 
Next 
.[B2] = compte 
End With 
End Sub

Sub RAZ() 
With ActiveSheet 
.[B2].ClearContents 
end with
End Sub

Sub compter()
compte = 0
With ActiveSheet
nbrligne = .Cells(.Columns(9).Cells.Count, 2).End(xlUp).Row - 1
For i = 5 To nbrligne
If .Cells(i, 9) = "Non traité" And .Cells(i, 10) = "Retard début OP" Then
compte = compte + 1
End If
Next
ancien = [B2].Value
.[B2] = compte
End With
With Sheets("QRQC S1")
nblign = .Range("Q11:Q16").Find("*", , , , xlByRows, xlPrevious).Row + 1
If nblign = 17 Then
.Range("Q12:Q16").ClearContents
nblign = 12
End If
.Cells(nblign, 17) = ancien
End With
End Sub

Sub RAZ()
With ActiveSheet
.[B2].ClearContents
End With
End Sub

Sub compter2() 
' 
'Compter le nombre de OP non traité et en retard de fin OP ou outil monté et en retard de fin OP' 

compte2 = 0 
With ActiveSheet 
nbrligne = .Cells(.Columns(9).Cells.Count, 2).End(xlUp).Row - 1 
For i = 5 To nbrligne 
If .Cells(i, 9) = "Non traité" And .Cells(i, 11) = "Retard Fin OP" Or .Cells(i, 9) = "Outil monté" And .Cells(i, 11) = "Retard Fin OP" Then 
compte2 = compte2 + 1 
End If 
Next 
ancien2 = .[E2].Value 
.[E2] = compte2 
End With 
With Sheets("QRQC S1") 
nblign = .Range("R11:R16").Find("*", , , , xlByRows, xlPrevious).Row + 1 
If nblign = 17 Then 
.Range("R12:R16").ClearContents 
nblign = 12 
End If 
.Cells(nblign, 18) = ancien2 
End With 
End Sub