Graphique avec nouvelle rubrique pour valeurs entre 0 et 5

Sub cartman()
c = 1
For i = 1 To Range("A65536").End(xlUp).Row
    If Cells(i, 2) > 4 Then
        Cells(c, 6) = Cells(i, 2)
        Cells(c, 5) = Cells(i, 1)
        c = c + 1
    End If
Next i
End Sub

Sub cartman()
c = 2
d = 1
For i = 1 To Range("A65536").End(xlUp).Row
    If Cells(i, 2) > 4 Then
        Cells(c, 6) = Cells(i, 2)
        Cells(c, 5) = Cells(i, 1)
        c = c + 1
    Else
        Cells(c-1, 5) = d
        'jai mi ma cellule autres villes en c-1,5
        d = d + 1
    End If
Next i
End Sub

Sub cartman()
c = 2
Cells(1, 5) = "autre ville"
For i = 1 To Range("A65536").End(xlUp).Row
    If Cells(i, 2) > 4 Then
        Cells(c, 6) = Cells(i, 2)
        Cells(c, 5) = Cells(i, 1)
        c = c + 1
    Else
    Cells(1, 6) = Cells(1, 6) + Cells(i, 2)
    End If
Next i
End Sub