Vba excel 2013

Bonjour a tous,

Voici ma vba : Sub tierce3()

Dim Sh As Worksheet
Dim Cptr As Integer
For Each Sh In Worksheets
If Sh.Range("K42") = 3 Then
Cptr = Cptr + 1
End If
Next Sh
Range("h44").Value = Cptr
End Sub

Sub tierce4()
Dim Sh As Worksheet
Dim Cptr As Integer
For Each Sh In Worksheets
If Sh.Range("K42") = 4 Then
Cptr = Cptr + 1
End If
Next Sh
Range("h45").Value = Cptr
End Sub
Sub tierce5()
Dim Sh As Worksheet
Dim Cptr As Integer
For Each Sh In Worksheets
If Sh.Range("K42") = 5 Then
Cptr = Cptr + 1
End If
Next Sh
Range("h46").Value = Cptr
End Sub
Sub tierce6()
Dim Sh As Worksheet
Dim Cptr As Integer
For Each Sh In Worksheets
If Sh.Range("K42") = 6 Then
Cptr = Cptr + 1
End If
Next Sh
Range("h47").Value = Cptr
End Sub
Sub tierce7()
Dim Sh As Worksheet
Dim Cptr As Integer
For Each Sh In Worksheets
If Sh.Range("K42") = 7 Then
Cptr = Cptr + 1
End If
Next Sh
Range("h48").Value = Cptr
End Sub
Sub tierce8()
Dim Sh As Worksheet
Dim Cptr As Integer
For Each Sh In Worksheets
If Sh.Range("K42") = 8 Then
Cptr = Cptr + 1
End If
Next Sh
Range("h49").Value = Cptr
End Sub

est-il possible de rendre plus simple et comment pouvoir la rende active,
car je suis obliger d'aller sur macro et exécuter pour que cela fonctionne

merci encore pour le coup de main

Cdlmt