Bonjour a tous et bon weekend pascal
désolé de vous déranger mais je suis bloqué dans mon code.
voila je voudrais que mon itération se fasse en même temps sur les deux paramètres et non sur une seule.
Car avec ce code mon itération ne se fait pas en même temps à l'aide des deux plages ( "E5:F5") et ("E10:F10"). Ce code va me permettre de comparer les résultats entre les deux cellules qui ont subi la même itération.

Ex de ce que je voudrais
itération 1 Résultat 1 (variation (E5:F5) Résultat 1 bis (variat "E10:F10)
itération 2 Résultat 2 Résultat 2 bis
...

et pas
itération 1 Résultat 1 (E5:F5) itération Résultat 2 (cellule "E10:F10)
itération 2 Résultat 3 Résultat 4

Le code fonctionne avec un paramètre

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
Dim nb As Integer
        Dim Iterat As Integer
 
     Range("A2").Select
        Selection.Value = nb 
        Range("E2:F10000").Select
Selection.ClearContents
 
        Do While nb < Iterat
            nb = nb + 1
            Range("A2").Value = nb
            Range("A15:B15").Select
            Selection.Copy
            Range("E1:F1").Select
            Selection.Offset(nb, 0).Select
            Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
            xlNone, SkipBlanks:=False, Transpose:=False
 
Loop
End Sub
Mais ne marche pas quand j'en mets deux

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
25
26
27
28
29
Dim nb As Integer
        Dim Iterat As Integer
 
     Range("A2").Select
        Selection.Value = nb 
        Range("E2:F10000").Select
        Range("H2:I10000").select
Selection.ClearContents
 
        Do While nb < Iterat
            nb = nb + 1
            Range("A2").Value = nb
            Range("A15:B15").Select
            Selection.Copy
            Range("E1:F1").Select
            Selection.Offset(nb, 0).Select
            Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
            xlNone, SkipBlanks:=False, Transpose:=False
        nb = nb + 1
            Range("A2").Value = nb
            Range("A18:B18").Select
            Selection.Copy
            Range("H1:I1").Select
            Selection.Offset(nb, 0).Select
            Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
            xlNone, SkipBlanks:=False, Transpose:=False
 
Loop
End Sub
Merci de votre aide et bonne fin de journée.