Amélioration macro avec boulce FOR NEXT

Sub Macro_Test()
Dim Nb_Year As Integer, Nb_Conditions As Integer, Total_Condition As Long
Dim Compteur_Ligne As Long, Compteur_Conditions As Integer, Compteur_Annees As Integer
Nb_Year = 4
Nb_Conditions = 3
For Compteur_Ligne = 3 To Range('A65536').End(xlUp).Row
    For Compteur_Conditions = 1 To Nb_Conditions
        Total_Condition = 0
        For Compteur_Annees = 1 To Nb_Year
            Total_Condition = Total_Condition + Cells(Compteur_Ligne, Compteur_Conditions + ((Compteur_Annees - 1) * Nb_Conditions))
        Next
        Cells(Compteur_Ligne, (Nb_Year * Nb_Conditions) + Compteur_Conditions).Value = Total_Condition
    Next Compteur_Conditions
Next Compteur_Ligne
End Sub