Interminable, Si ou Select case et Offset

Bonjour,
je cherche à calculer une somme de lignes et des % (/ à cette somme) en fonction du contenu de certaines cellules.
J'ai joint un fichier qui illustre mon besoin. J'aurai au maximum 5 carrosseries de voiture donc la fonction si ou select cas n'a pas besoin de s'étendre plus, je commence par cette situation et vais décroissant.
Dans mon fichier si la cellule B1 = B2 = B3 alors j'aimerais le total de M10+M11+M13 en G10 et leur % respectif (M10/G10) en H13.

J'espère que mon cas est assez claire. Merci d'avance pour votre aide.
J'ai commencé la macro par le code si bas mais je suis perdu déjà car je n'arrive pas à calculer avec des offset...

Sub Macro1()
Dim compteur As Long
Dim i As Long 'colonnes
Dim j As Long 'lignes
Dim SommeModel As Long

Range("B10").Select
Range(Selection, Selection.End(xlDown)).Select
compteur = Selection.End(xlDown).Row

For j = 10 To compteur
If Cells(j, 2).Text = Cells(j, 2).Offset(1, 0).Text = Cells(j, 2).Offset(2, 0).Text = Cells(j, 2).Offset(3, 0).Text = Cells(j, 2).Offset(4, 4).Text Then
Cells(j, 7).Select
ActiveCell.FormulaR1C1 = "=SUM(Cells(j, 13), Cells(j, 13).Offset(1, 0), Cells(j, 13).Offset(2, 0) ,Cells(j, 13).Offset(3, 0), Cells(j, 13).Offset(4, 0))"
ActiveCell.Value = SommeModel
Cells(j, 8).Select
ActiveCell.FormulaR1C1 = "Cells(j, 13)/SommeModel"
Selection.NumberFormat = "0%"
Cells(j, 8).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "Cells(j, 13).offset(1, 0) / SommeModel"