Bonjour
En espérant avoir compris
Modifies cette partie de la macro "Compare"
For I = 0 To 10 'Varier la valeur de la variable I (de 0 à 10)
Sheets("info").Range("C47") = I
If Sheets("calculJRS").Range("W103") >= Sheets("info").Range("C48") And Sheets("calculJRS").Range("W103") <= Sheets("info").Range("H48") Then
Indice = Indice + 1
ReDim Preserve Tablo(1 To 4, 1 To Indice)
Tablo(1, Indice) = Sheets("info").Range("G31")
Tablo(2, Indice) = Sheets("info").Range("F42")
Tablo(3, Indice) = Sheets("info").Range("E52")
Tablo(4, Indice) = Sheets("calculJRS").Range("W103")
End If
If Sheets("calculJRS").Range("W103") > Sheets("info").Range("H48") Then Exit For
Next I