Une question sur excel et vba

Sub antic80_Moyenne()
' Macro enregistrée le 10.11.2004 par Jean-Pierre Purro
    Dim vaNote, vaCoeff, vaPlaEle, vaPlage As Range
    Dim vaLiEl, vaLiCoe, vaSoNo, vaSocoe As Variant
'Récupérer les élèves(Col A début Li 5 , fin à chercher)
 Set vaPlaEle = Range("A5:A" & Range("A5").End(xlDown).Row)
'Récupérer les coeficients(début col D li 4, fin à chercher)
 vaDeCo = Range("D4").End(xlToRight).Column
 Set vaPlage = Range(Cells(4, 4), Cells(4, vaDeCo))
'Début de la boucle sur les élèves
    Let vaLiEl = 5
    Let vaLiCoe = 4
 For Each vaEleve In vaPlaEle
    Let vaCoCoe = 4
    Let vaSoNo = 0
    Let vaSocoe = 0
'Début de la boucle sur les coefficients(même nb que notes)
    For Each vaCoeff In vaPlage
'Si absence pas de prise en compte
        If IsNumeric(Cells(vaLiEl, vaCoCoe)) Then
'Note * coefficient
            vaNoCoe = Cells(vaLiEl, vaCoCoe) * Cells(vaLiCoe, vaCoCoe)
'Somme des notes et des cefficients
            vaSoNo = vaSoNo + vaNoCoe
            vaSocoe = vaSocoe + Cells(vaLiCoe, vaCoCoe)
        End If
'Incrémente le compteur de colonne
        Let vaCoCoe = vaCoCoe + 1
    Next vaCoeff
'Calculer la moyenne et l'inscrire dans la cellule Cx
    Cells(vaLiEl, 3) = vaSoNo / vaSocoe
'Incrémente le compteur des élèves
    Let vaLiEl = vaLiEl + 1
 Next vaEleve
End Sub