Moyenne pondérée et VBA

Bonsoir à tous. J'ai une préoccupation que j'ai résolu avec les formules excel mais pas en utilisant du code VBA.

Voilà j'ai une liste de 4 matières associées à des coefficients ( maths 4; phys 3; anglais 2 et français 3).

Comment s'y prendre en utilisant du code vba lorsque l'on ait dans une classe 20 élèves et que certains d'entre eux peuvent être classés dans 2 ou 3 matières sur les 4?

Remarque: si un élève n'est pas classé en maths, le coefficient de la matière n'est pas pris en compte lors du calcul de la moyenne pondérée...

Merci pour vos réponses

Bonjour,
Un exemple en VBA sur une classe de 20 élèves :

Option Explicit

Sub Macro1()
    Dim i As Long, j As Long, nL As Long
    Dim matieres As Byte, total As Single

    nL = Cells(Rows.Count, "A").End(xlUp).Row

    ' Moyennes
    For j = 3 To nL
        total = 0
        matieres = 0
        For i = 2 To 5
            If Cells(j, i) <> "" Then
                total = total + Cells(j, i) * Cells(2, i)
                matieres = matieres + Cells(2, i)
            End If
        Next i
        Cells(j, 6) = total / matieres
    Next j
End Sub