Bonjour a tous !

J'ai un petit problème de code,
j'ai ce code :


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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Sub Macro_Maj()
 
        Workbooks.Open (Chemin& Dossier)
        Windows(Dossier).Activate
        Sheets("feuil1").Activate
 
        Dim i As Integer
        Dim i2 As Integer
 
        For i = 1 To 700 Step 1
 
                If i = 4 Or i = 35 Or i = 51 Or i = 71 Or i = 97 Or i = 134 Or i = 151 Or i = 168 Or i = 184 Or i = 198 Or i = 212 Or i = 228 Or i = 246 Or i = 262 Or i = 277 Or i = 293 Or i = 309 Or i = 319 Or i = 330 Or i = 350 Or i = 375 Or i = 386 Or i = 393 Or i = 463 Or i = 502 Or i = 503 Or i = 511 Or i = 526 Or i = 551 Or i = 565 Or i = 616 Or i = 644 Then
 
                    If i = 4 Then i2 = 19
                    ElseIf i = 35 Then i2 = 49
                    ElseIf i = 51 Then i2 = 64
                    ElseIf i = 71 Then i2 = 82
                    ElseIf i = 97 Then i2 = 108
                    ElseIf i = 134 Then i2 = 126
                    ElseIf i = 151 Then i2 = 142
                    ElseIf i = 168 Then i2 = 158
                    ElseIf i = 184 Then i2 = 173
                    ElseIf i = 198 Then i2 = 186
                    ElseIf i = 212 Then i2 = 199
                    ElseIf i = 228 Then i2 = 214
                    ElseIf i = 246 Then i2 = 231
                    ElseIf i = 262 Then i2 = 246
                    ElseIf i = 277 Then i2 = 259
                    ElseIf i = 293 Then i2 = 274
                    ElseIf i = 309 Then i2 = 289
                    ElseIf i = 319 Then i2 = 298
                    ElseIf i = 330 Then i2 = 308
                    ElseIf i = 350 Then i2 = 336
                    ElseIf i = 375 Then i2 = 359
                    ElseIf i = 386 Then i2 = 370
                    ElseIf i = 393 Then i2 = 384
                    ElseIf i = 463 Then i2 = 460
                    ElseIf i = 502 Then i2 = 498
                    ElseIf i = 503 Then i2 = 509 
                    ElseIf i = 511 Then i2 = 515 
                    ElseIf i = 526 Then i2 = 531
                    ElseIf i = 551 Then i2 = 563
                    ElseIf i = 565 Then i2 = 578
                    ElseIf i = 616 Then i2 = 628
                    ElseIf i = 644 Then i2 = 654
 
                    Windows("Départs.xls").Activate
                    Sheets("Départs1").Activate
                    Range("E" & i).Select
                    Range(Selection, Selection.End(xlDown)).Select
                    Selection.Copy
                    Windows(Dossier).Activate
                    Sheets("feuil1").Activate
                    Range("I" & i).Select
                    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
 
                    End If
 
        Next
 
 Workbooks(Dossier).Close
 
End Sub
et donc le problème c'est que ce code ne fonctionne pas comme je veux ^^

Donc pour moi, ce code devrai fonctionner comme ceci:

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
 
For i = 1 To 700 Step 1
      If i = 4
              If i = 4 Then i2 = 19
                    Windows("Départs.xls").Activate
                    Sheets("Départs (SCHNEIDER-SOCOMEC)").Activate
                    Range("E" & i).Select
                    Range(Selection, Selection.End(xlDown)).Select
                    Selection.Copy
                    Windows(Dossier_Chiffrage_Elec_Energence_Clauger).Activate
                    Sheets("Chiffrage").Activate
                    Range("I" & i).Select
                    Selection.PasteSpecial Paste_
                    :=xlPasteValues,Operation:=xlNone,SkipBlanks _
                    :=False, Transpose:=False
et la ca reviens au départ et ca fait pareil mais pour i = 35

Mais il ne fonctionne pas comme cela... je pense que c'est a cause des elseif car c'est la premier fois que je m'en sert

Cordialement