Bonjour voilà la macro que j'utilise mais la ligne que je copie en Q contiens des formules que je ne veux pas. Et je ne trouve pas comment modifier cette ligne.
Est il possible de m'aider?


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
Sub macrocopier()
    Set cible = ThisWorkbook
    Set base = Workbooks.Open(".....\extraction.xls")
    base.Activate
    With base
        ActiveSheet.Range("A3:A" & ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("A3")
        ActiveSheet.Range("B3:B" & ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("B3")
        ActiveSheet.Range("c3:c" & ActiveSheet.Range("c" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("c3")
        ActiveSheet.Range("i3:i" & ActiveSheet.Range("i" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("e3")
        ActiveSheet.Range("e3:e" & ActiveSheet.Range("e" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("i3")
        ActiveSheet.Range("f3:f" & ActiveSheet.Range("f" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("j3")
        ActiveSheet.Range("g3:g" & ActiveSheet.Range("g" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("k3")
        ActiveSheet.Range("j3:j" & ActiveSheet.Range("j" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("q3")
        ActiveSheet.Range("i3:i" & ActiveSheet.Range("i" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("s3")
        ActiveSheet.Range("k3:k" & ActiveSheet.Range("k" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("t3")
        ActiveSheet.Range("r3:r" & ActiveSheet.Range("r" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("u3")
        ActiveSheet.Range("s3:s" & ActiveSheet.Range("s" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("v3")
        ActiveSheet.Range("v3:v" & ActiveSheet.Range("v" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("w3")
        ActiveSheet.Range("y3:y" & ActiveSheet.Range("y" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("x3")
        ActiveSheet.Range("o3:o" & ActiveSheet.Range("o" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("ac3")
        ActiveSheet.Range("t3:t" & ActiveSheet.Range("t" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("ad3")
        ActiveSheet.Range("u3:u" & ActiveSheet.Range("u" & Rows.Count).End(xlUp).Row).Copy cible.Sheets("BDD").Range("af3")
    End With
End Sub