[XL-2010] extraction des données

Je pensais a une macro comme ça mais en copiant les données de l'onglet "Mvt FC" non en 231 mais apres l'inventaire qui est matérialisé par des case blanche

Code:

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
Sub NouveauMouvement()
 
For i = 35 To 230
 For j = 10 To 182
 
If Sheets("Port_FC+_SansMvt").Range("A" & i) <> Sheets("Port_FC+").Range("E" & j) Then
 
 
 Sheets("Port_FC+").Select
    Range("E" & j).Select
    Selection.Copy
     Application.CutCopyMode = False
    Selection.Copy
    Sheets("Port_FC+_SansMvt").Select
    Range("A231").Select
    ActiveSheet.Paste
 
 
    Sheets("Port_FC+").Select
    Range("F" & j).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Port_FC+_SansMvt").Select
    Range("C231").Select
    ActiveSheet.Paste
 
    Sheets("Port_FC+").Select
    Range("J" & j).Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Port_FC+_SansMvt").Select
    Range("L231").Select
    ActiveSheet.Paste
 
 
 
End If
 
Next
Next
 
 
End Sub