Bonjour !

j'ai un macro que je fais tourner mon plusieurs valeur de i !

Je souhaiterai pour chaque i aller stocker dans les résultats dans un tableau sur nouvelle feuille avec comme nom de colonne à chaque fois : Col_i

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
23
24
 
Sub validation()
Dim v As Variant
Dim var1 As Variant
Dim var2 As Variant
Dim tableau As Range
With Worksheets("Parametre")
        derniere_ligne = Range("A19").End(xlDown).Row
        For i = 19 To derniere_ligne
            If (Not IsEmpty(Range("A" & i))) Then
                If (Range("B" & i) = ">") Then
                        var1 = .Cells(i, 1).Value
                        var2 = .Cells(i, 3).Value
                    v = Application.Run("BERT.Call", "compare_sup", var1, var2)
                EndIf
                If (Range("B" & i) = "<") Then
                        var1 = .Cells(i, 1).Value
                        var2 = .Cells(i, 3).Value
                    v = Application.Run("BERT.Call", "compare_inf", var1, var2)
                End If
            End If
        Next i
End With
End Sub
Pour stocker les résultats j'utilise normalement :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveSheet.Range("A1:I130000").Value = v
, pouvez vous me dire comment remplacer ce code pour que ce soit dans la colonne B puis C de ma nouvelle feuille?

merci !