Bonjour à tous,

Voilà j'ai une macro qui me tire toutes les formules de mes colonnes sur mon classeur. Seulement quand je l'exécute, elle me supprime une colonne alors que je ne veux pas. J'ai donc trouvé une alternative qui est de rajouter une colonne avant celle que la macro va me supprimer et d'ajouter dans la macro l'action de supprimer cette colonne ajoutée. Mais cela n'est pas pratique et j'aimerai retrouver une macro qui ne me supprime pas de colonne tant que je ne lui demande pas.

Voici le 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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
Sub Délimiter_components_Tirer_formules()
'
' Tirer_Formules Macro
'
Columns("L:L").Select
    Selection.TextToColumns Destination:=Range("AM1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1))
    ActiveWindow.ScrollColumn = 24
    Range("AM1").Select
    ActiveCell.FormulaR1C1 = "Component1"
    Range("AN1").Select
    ActiveCell.FormulaR1C1 = "Component2"
    Range("AO1").Select
    ActiveCell.FormulaR1C1 = "Component3"
    Range("AP1").Select
    ActiveCell.FormulaR1C1 = "Component4"
    Range("AQ1").Select
    ActiveCell.FormulaR1C1 = "Component5"
    Range("AR1").Select
    ActiveCell.FormulaR1C1 = "Component6"
 
 
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
 
 
Range("AD2").Select
Selection.AutoFill Destination:=Range("AD2:AD" & DernLigne), Type:=xlFillDefault
Range("AE2").Select
Selection.AutoFill Destination:=Range("AE2:AE" & DernLigne), Type:=xlFillDefault
Range("AF2").Select
Selection.AutoFill Destination:=Range("AF2:AF" & DernLigne), Type:=xlFillDefault
Range("AG2").Select
Selection.AutoFill Destination:=Range("AG2:AG" & DernLigne), Type:=xlFillDefault
Range("AH2").Select
Selection.AutoFill Destination:=Range("AH2:AH" & DernLigne), Type:=xlFillDefault
Range("AI2").Select
Selection.AutoFill Destination:=Range("AI2:AI" & DernLigne), Type:=xlFillDefault
Range("AJ2").Select
Selection.AutoFill Destination:=Range("AJ2:AJ" & DernLigne), Type:=xlFillDefault
Range("AK2").Select
Selection.AutoFill Destination:=Range("AK2:AK" & DernLigne), Type:=xlFillDefault
Range("AL2").Select
Selection.AutoFill Destination:=Range("AL2:AL" & DernLigne), Type:=xlFillDefault
Range("AS2").Select
Selection.AutoFill Destination:=Range("AS2:AS" & DernLigne), Type:=xlFillDefault
Range("AT2").Select
Selection.AutoFill Destination:=Range("AT2:AT" & DernLigne), Type:=xlFillDefault
Range("AU2").Select
Selection.AutoFill Destination:=Range("AU2:AU" & DernLigne), Type:=xlFillDefault
Range("AV2").Select
Selection.AutoFill Destination:=Range("AV2:AV" & DernLigne), Type:=xlFillDefault
Range("AW2").Select
Selection.AutoFill Destination:=Range("AW2:AW" & DernLigne), Type:=xlFillDefault
Range("AX2").Select
Selection.AutoFill Destination:=Range("AX2:AX" & DernLigne), Type:=xlFillDefault
Range("AY2").Select
Selection.AutoFill Destination:=Range("AY2:AY" & DernLigne), Type:=xlFillDefault
Range("AZ2").Select
Selection.AutoFill Destination:=Range("AZ2:AZ" & DernLigne), Type:=xlFillDefault
Range("BA2").Select
Selection.AutoFill Destination:=Range("BA2:BA" & DernLigne), Type:=xlFillDefault
Range("BB2").Select
Selection.AutoFill Destination:=Range("BB2:BB" & DernLigne), Type:=xlFillDefault
Range("BC2").Select
Selection.AutoFill Destination:=Range("BC2:BC" & DernLigne), Type:=xlFillDefault
Range("BD2").Select
Selection.AutoFill Destination:=Range("BD2:BD" & DernLigne), Type:=xlFillDefault
Range("BE2").Select
Selection.AutoFill Destination:=Range("BE2:BE" & DernLigne), Type:=xlFillDefault
Range("BF2").Select
Selection.AutoFill Destination:=Range("BF2:BF" & DernLigne), Type:=xlFillDefault
Range("BG2").Select
Selection.AutoFill Destination:=Range("BG2:BG" & DernLigne), Type:=xlFillDefault
Range("BH2").Select
Selection.AutoFill Destination:=Range("BH2:BH" & DernLigne), Type:=xlFillDefault
Range("BI2").Select
Selection.AutoFill Destination:=Range("BI2:BI" & DernLigne), Type:=xlFillDefault
Range("BJ2").Select
Selection.AutoFill Destination:=Range("BJ2:BJ" & DernLigne), Type:=xlFillDefault
Range("BK2").Select
Selection.AutoFill Destination:=Range("BK2:BK" & DernLigne), Type:=xlFillDefault
Range("BL2").Select
Selection.AutoFill Destination:=Range("BL2:BL" & DernLigne), Type:=xlFillDefault
Range("BM2").Select
Selection.AutoFill Destination:=Range("BM2:BM" & DernLigne), Type:=xlFillDefault
 
Columns("AS:AS").Delete Shift:=xlToLeft
 
End Sub
Merci pour votre réponse !