Bonjour le forum,

Je fais appel à vous car je tourne en rond depuis 2 heures avec une macro toute simple.

Voilà mon 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
Sub Reception_Donnees()
 
 
 
      'on désactive la mise à jour de l'écran
1     Application.ScreenUpdating = False
 
      ' on supprime les liens
2     ActiveSheet.Hyperlinks.Delete
 
      'on supprime les images
3     ActiveSheet.Shapes.SelectAll
4     Selection.Delete
 
      'on supprime les lignes vides
      Dim i As Long
5     For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
6         If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
7     Next i
 
 
 
      'on supprime les colonnes
 
8     Range("B:B,D:J").Delete Shift:=xlToLeft
 
      'on s'occupe de la celluleprix à déplacer et convertir
9     Application.DisplayAlerts = False
 
10    Range("A1").End(xlDown).Cut [H2]
 
11    Range("H2").TextToColumns Destination:=Range("H2"), DataType:=xlDelimited, _
              TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
              Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
              :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
              1), Array(6, 1), Array(7, 1)), TrailingMinusNumbers:=True
 
12    Range("H2:N2").Copy
13        Range("G2").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
              False, Transpose:=True
14        Range("H2:N2").Delete
 
15
 
      'on supprime 20 lignes à partir de la cellule contenant "Origines"
 
16    Columns("A:A").EntireColumn.Find(What:="origines", After:=ActiveCell).Activate
17        ActiveCell.Range("A1:F20").Delete
 
 
      'on sélectionne les données qui restent et cut en F2 de feuille "Finalisation"
 
18    Range([G1], [A1].End(xlDown)).Cut Worksheets("Finalisation").[F2]
 
 
19    Application.ScreenUpdating = True
      '
End Sub
Elle s'arrête sur la ligne 8 et quand j'arrive à en sortir elle s'arrête ligne 11.
Je n'en vois pas la raison ça m'énerve ça m'énerve ça m'énerveça m'énerveça m'énerveça m'énerveça m'énerveça m'énerveça m'énerveça m'énerveça m'énerveça m'énerveça m'énerve

j'espère que je vais trouver une aide. merci d'avance