Bonjour

j'ai enregistrer une macro (en exécutant mes manips) que j'ai sauvé dans pesonal.xlsb.
Cette macro redimensionne des cellules en masque 3 et crée une petite formule afin d'automatiser la mise en forme de fichiers générés par Covadis (un applicatif VRD pour autocad)
le problème, lorsque j'exécute ma macro, la 1ere cellule en haut à gauche devient la cellule O1, et je ne peu pas afficher les colonne avant.

Y a il un truc?
Merci pour vos lumières


je met ici le code de la macro récalcitrante
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
Sub MEFcovadis()
'
' MEFcovadis Macro
' Mise en forme déblais remblais Covadis
'
 
'
    Columns("C:N").Select
    Range("C3").Activate
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Selection.ColumnWidth = 8.33
    Rows("11:11").RowHeight = 40.2
    Range("I:I,J:J,N:N").Select
    Range("N3").Activate
    Selection.EntireColumn.Hidden = True
    Range("D25").Select
    ActiveCell.FormulaR1C1 = "Total déblais = déblais + décapage"
    Range("D25").Select
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("E25").Select
    ActiveCell.FormulaR1C1 = "=R[-2]C+R[-2]C[7]"
    Range("E23").Select
    Selection.Copy
    Range("E25").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A3").Select
End Sub