Faire la somme de variables définies

Bonjour,

Je souhaite transformer le texte ci-dessous en code et j'ai quelques blocages:

variable A=chaine de caractères de la feuille 1 de la colonne B
variable B=chaine de caractères de la feuille 2 de la colonne A
variable C="NIVEAU" ou "VIDANGE" dans la feuille 2
variable D1= nombre de la colonne B de la feuille 2
varibale D7=nombre de la colonne H de la feuille 2

Je suis dans la feuille 1
si A=B et si C="NIVEAU" alors mais cellule de la feuille 1 = somme de D1 à D7 et là je voudrais faire une boucle pour que A balaie toutes la colonne A tant qu'il y a une chaine de caractères
Ensuite je souhaite que cette boucle se fasse pour toute les cellules A tant qu'il y a une chaine de caractères

voilà ce que j'ai commencé et je suis déjà bloquée!!
Dim C As Variant
Dim D1 As Long
Dim D7 As Long

A = Worksheet("etude").Sheets("octobre").Cells(i, 2)
B = Worksheets("CONSO.xls").Sheets("KAW 09").Cells(i, 1)
C = Worksheets("CONSO.xls").Sheets("KAW 09").Cells(i, 10)
D1 = Worksheets("CONSO.xls").Sheets("KAW 09").Cells(i, 2)
D7 = Worksheets("CONSO.xls").Sheets("KAW 09").Cells(i, 8)


j = 1
For Each x In Worksheets("etude de machine").Sheets("octobre").Range("AP3:AP115").Cells
For i = 3 To 115
Do
If A = B And C = "NIVEAU" Then x=Sum(D17) ici j'ai un message d'erreur sur le signe:

merci de votre concours!!