PB de macro moyenne pour un classement

Salut je suis dans l'embaras en effet je suis tenu de faire un tableau complet et je suis novice sur excel je n'utilise que les formules et du coup je doit avoir une erreur dans les ecrit que j'ai récuperer.

Ligne 24

exemple:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Function Moyenne()
 
' Declaration des variables
 
Dim i As Integer
Dim A As Long
Dim somme As Double
 
 
 
' Détermination de la derniere ligne comptenant des stagiaires
            valeurf = Sheets("PVGENERAL").Range("A" & Rows.Count).End(xlUp).Row
             A = -1
 
' Détermination de la derniere colone comptenant des stagiaires
            Valeurg = Sheets("PVGENERAL").Cells(5, Cells.Columns.Count).End(xlToLeft).Column
 
' Calcule de la moyenne pour chaque stagiaire
 
            For i = 8 To valeurf
                For j = 8 To Valeurg - 4
                     somme = somme + (Sheets("PVGENERAL").Cells(i, j).Value * Sheets("PVGENERAL").Cells(i + A, j).Value)
                 Next j
                somme = (Sheets("PVGENERAL").Cells(i + b, Valeurg - 2).Value) / somme
                Sheets("PVGENERAL").Cells(i, Valeurg - 2) = somme + Sheets("PVGENERAL").Cells(i, Valeurg - 3)
                A = (b - 1)
                somme = 0
 
             Next i
 
 
End Function

Si quelqu'un peux m'aider sa serais tres sympa

Merci d'avance.
si besoin je peux transferer directement par mail le fichier lol!!