Sub MAJGlobal()
Dim cpt As Long, DernLigne As Long, i As Long 'déclaration des variables
DernLigne = Sheets("Data").Range("K1048576").End(xlUp).Row 'stocke dans la variable DernLigne le n° de la dernière ligne non vide
For i = 1 To DernLigne
If Cells(i, 11).Value = 31 Then 'Si la cellule (ième ligne, 11eme colonne) égal à 31 alors
cpt = cpt + 1 ' on ajoute 1 au compteur
End If ' sinon on fait rien et on continue
Next ' i suivant...
Sheets("Global").Range("C4").Value = cpt
For i = 1 To DernLigne
If Cells(i, 11).Value > 31 And Cells(i, 11).Value < 180 Then 'Si la cellule (ième ligne, 11eme colonne) supérieur à 31 et inférieur à 180
cpt = cpt + 1 ' on ajoute 1 au compteur
End If ' sinon on fait rien et on continue
Next ' i suivant...
Sheets("Global").Range("D4").Value = cpt
End Sub