Bonjour à tous

je bloque sur un petit problème que je pense pas compliqué mais mes connaissances en vba me limite.

en effet je cherche a faire une opération en allant chercher les info sur une autre feuille de mon classeur afin d'effectuer plusieurs fois le même calcule ou seul une valeur change. Pour ca je place tout dans une bloucle FOR mais impossible de trouver comment faire varier ma variable de cellule.

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
 Dim I As Integer
 
I = Feuil1.Range("a1").End(xlDown).Row
nbcel = 0
nbcel1 = 0
 
 
For Each cel In Range("a20:a" & I)
 
If cel <> "" Then
nbcel1 = nbcel + 20
Range("A" & nbcel1).Select
nbcel = nbcel + 1
ActiveCell.Formula = "=Feuil1!A & nbcel+1-Feuil1!$E$3"
End If
 
Next cel
Merci d'avance pour votre aide