Bonjour à tous le monde

Voilà j'essaie de faire une somme conditionnelle qui me pose problème
En fait mon code est le suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
dim somme, val, total as variant
 
  For i = 5 To 300
  If Worksheets(CStr(ComboBox2)).Range("F" & i) = Worksheets(CStr(ComboBox2)).Range("F" & i + 1) Then
 
                    somme = somme + Sheet1.Cells(i, 14).Value
   End If
   If Worksheets(CStr(ComboBox1)).Range("F" & i) = Worksheets(CStr(ComboBox1)).Range("F" & i + 1) Then
 
                    val = val + Sheet2.Cells(i, 14).Value
 End If
 If Worksheets(CStr(ComboBox2)).Range("F" & i) = Worksheets(CStr(ComboBox1)).Range("F" & i + 1) Then
 
                    total = somme - val
       End If
 
        If Sheets("total").Range("B4" & i) = Worksheets(CStr(ComboBox2)).Range("F" & i) Then
 
                    For Each cel In Range("B4:B300") 
 
                        cel = total
                    Next cel
End If
 
                Next i
 
End If
Apparement il compile mais rien ne se passe à l'éxécution

donc je souhaiterais faire la somme des valeurs en colonne 14 de la feuille1 pour lesquelles les codes en colonne F sont identiques, s'il y seul code on coserve la valeur unique trouvée

L'opération est répétée sur la deuxième feuille (combobox1.value) et enfin on colue la différence des deux sur la feuille total pour les codes respectifs en colonne A

Je ne sais pas si j'ai été assez claire
Merci pour vos réponse!!!!!