Bonjour à tous,

Oupss, me suis trompé: ce post devrait être dans Macro & VBA Excel, non ?

J'ai un souci avec le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub NewLine()
Dim rang    As Range
    Application.ScreenUpdating = False
    ActiveWorkbook.Sheets("ATOS-BE").Activate
    ActiveCell.EntireRow.Select
    Selection.Insert Shift:=xlDown
    Set rang = ActiveSheet.Cells(ActiveCell.Row, 1)
    Range("A774:FZ774").Copy
    rang.Offset(0, 0).PasteSpecial Paste:=xlFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub
Je l'ai installé dans un autre fichier où il fonctionne sans problème mais ici les formules ne sont jamais copiées.
Certaines cellules de la rangée A774 à FZ774 contiennent des formules comme ceci:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
=SI(ET(E717>0;NON(E717="-"));1;"")
Dans mon fichier original (où ça marche), j'ai une formule du genre =A2*A4.

Que faut-il faire pour que ma formule =SI... soit recopiée ?

Merci d'avance pour l'aide.