Bonjour à tous !

Je ne comprends pas pourquoi mon codage ne fonctionne pas !

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Sub Macro7()
 
With Sheets("SUIVTRANS EN COURS")
 
 dernligne = .Range("A" & .Rows.Count).End(xlUp).Row
 For i = 2 To dernligne
    .Cells(i, "S").Value = .Cells(i, "R") + Application.WorksheetFunction.SumIfs(Sheets("BASE CALCUL SIN").Range("G2:G" & dernligne), Sheets("SUIVTRANS EN COURS").Range("J2:J" & dernligne), Sheets("BASE CALCUL SIN").Range("N2:N" & dernligne))
Next i
 End With
Si ca peut vous aider j'ai la formule basique de excel mais il me le faut en VBA car j'ai plus de 6000 lignes !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
=R2+SOMME.SI('BASE CALCUL SIN'!G:G;'SUIVTRANS EN COURS'!J2;'BASE CALCUL SIN'!N:N)
HELP ME !