Bonjour à tous,

Je suis nouveau sur le forum et en VBA. Normalement j'arrive à me débrouiller sur Internet mais ça fait actuellement plusieurs jours que je bloque sur ce soucis et je commence à avoir les nerfs car je ne comprends pas mon problème

Pour expliquer brièvement ce que je cherche à faire, je souhaite créer des onglets de suivi fournisseur. Pour cela, j'extrais d'un logiciel toutes mes données et mes exportent dans un onglet nommé "Import_Sage" d'un fichier "Suivi avec Macro"

Voici mon soucis, la macro filtre mon import et prends le fournisseur "A", elle copie les lignes du fournisseur "A" et va dans l'onglet du nom du fournisseur et les colle en C4.

Ca marche pour tous sauf 4 fournisseurs et je ne comprends pas pourquoi

Voici l'un des morceaux de la macro

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
ActiveSheet.Range("$A$10:$M$5000").AutoFilter Field:=2, Criteria1:= _
        "9AAAAAA0000000000"
    Range("A11:M1000").Select
    Selection.Copy
    Sheets("A").Select
    Range("c4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
         Range("Q4").Select
    ActiveCell.FormulaR1C1 = _
        "=INDEX(RC[14]:R[250]C[14],MATCH(RC[12],RC[13]:R[250]C[13],0))"
    Range("Q4").Select
    ActiveCell.FormulaR1C1 = "=INDEX(R4C31:R254C31,MATCH(RC29,R4C30:R254C30,0))"
    Range("Q4").Select
    Selection.AutoFill Destination:=Range("Q4:Q254"), Type:=xlFillDefault
    Range("Q4:Q254").Select
    Range("R4").Select
    ActiveCell.FormulaR1C1 = _
        "=INDEX(RC[14]:R[250]C[14],MATCH(RC[11],RC[12]:R[250]C[12],0))"
    Range("R4").Select
    ActiveCell.FormulaR1C1 = "=INDEX(R4C32:R254C32,MATCH(RC29,R4C30:R254C30,0))"
    Range("R4").Select
    Selection.AutoFill Destination:=Range("R4:R254"), Type:=xlFillDefault
    Range("R4:R254").Select
    Range("S4").Select
    ActiveCell.FormulaR1C1 = _
        "=INDEX(RC[14]:R[250]C[14],MATCH(RC[10],RC[11]:R[250]C[11],0))"
    Range("S4").Select
    ActiveCell.FormulaR1C1 = "=INDEX(R4C33:R254C33,MATCH(RC29,R4C30:R254C30,0))"
    Range("S4").Select
    Selection.AutoFill Destination:=Range("S4:S254"), Type:=xlFillDefault
    Range("S4:S254").Select
 
    Range("c1").Select
    Sheets("Import_Sage").Select
    Application.CutCopyMode = False
    ActiveSheet.Range("$A$10:$M$10000").AutoFilter Field:=2


Et voila ça bloque ici
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Et impossible de comprendre pourquoi. J'ai agrandi le taille du copier, changer le Pastespecial etc.
Pour tous les autres ça fonctionne.


Merci par avance!



PS: Désolé si ma macro vous fait grincer des dents... Je suis pas très bon encore mais si vous avez une amélioration à proposer je suis à l'écoute