Macro faire une moyenne des doublons puis supprimer ces doublons

Bonjour,
Je suis débutant dans la macro excel et actuellement stagiaire en sig. Grâce au forum, j'ai déja réussi à créer une macro pour supprimer des doublons et additionner leurs valeur. En fait, j'avais une valeur par canton mais chaque canton avait plusieurs lignes. La macro ci-dessous m'a donc permis d'additionner les doublons ayant le même numero de canton et d'additionner les valeurs différentes pour chaque canton.

SubSuppr_lignes_doublons()
Dim i As Long
For i = ActiveSheet.Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
Cells(i - 1, 2).Value = Cells(i - 1, 2).Value + Cells(i, 2).Value
Cells(i, 1).EntireRow.Delete
End If
End Sub

Seulement maintenant j'ai de nouvelles données où je souhaite toujours supprimer les doublons mais cette fois je ne souhaite pas additionner les valeurs différentes mais en faire une moyenne par canton. J'espère que je suis assez clair.

Donc au final, par rapport à la formule en gras ci-dessus, que dois-je changer pour faire une moyenne plutôt qu'une addition?

Cordialement, Marc