Bonjour, ma deuxième boucle ne fonctionne pas et je ne comprend pas pourquoi voici mon code ( j'ai mis en rouge la section qui ne fonctionne pas(selon moi)):
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
Dim r As Integer
Dim c As Integer
Dim rr As Integer
Dim cc As Integer
c = 3
r = 15
rr = 7
cc = 4
Sheets("histo").Select
Do Until Sheets("histo").Cells(15, c) = ""
    Do Until Cells(r + 1095, c) = ""
    
            Sheets("rendement").Cells(rr, cc) = (Sheets("histo").Cells(r + 1095, c) - Sheets("histo").Cells(r, c)) / Sheets("histo").Cells(r, c)
        rr = rr + 1
    r = r + 1
    Loop
cc = cc + 1
c = c + 1
Loop


End Sub