Sub For_X_to_Next_Colonne()
Dim Limite As Double, TE(), CE&, TS(), L&, CS&, CSMax&, LDéb&(1 To 500), TypeCalcul(1 To 500) As String
Limite = Feuil1.[I1].Value
TE = Intersect(Feuil1.[A3:G1048576], Feuil1.UsedRange).Value
ReDim TS(1 To UBound(TE, 1), 1 To 500)
For L = 1 To UBound(TE, 1)
If Not IsEmpty(TE(L, 5)) Then
CSMax = CSMax + 1
LDéb(CSMax) = L
TypeCalcul(CSMax) = TE(L, 5)
End If
For CS = 1 To CSMax
Select Case TypeCalcul(CS)
Case "ask": TS(L, CS) = TE(LDéb(CS), ???) + (TE(L, ???) - TE(LDéb(CS), ???)) * 1000
Case "bid": TS(L, CS) = TE(L???, ???) + (TE(L???, ???) - TE(L???, ???)) * 1000
End Select
If TS(L, CS) > Limite Then TypeCalcul(CS) = ""
Next CS, L
Intersect(Feuil1.[H3:FDX1048576], Feuil1.UsedRange).ClearContents
Feuil1.[H3].Resize(UBound(TS, 1), CSMax).Value = TS
End Sub