Bonjour,

J'ai une difficulté que je n'arrive pas à résoudre seul ou en consultant les forums et je pense que c'est tout bête.
J'ai le code suivant qui doit copier coller une base à la suite d'une base dans un autre onglet.
Or, j'ai des formules automatiques dans l'autre onglet car c'est un tableau (mise sous forme en tableau). Le problème c'est que le dit tableau ne prend pas en compte mon coller et donc les formules ne "descendent " pas automatiquement...
Avez vous des idées svp?

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
Public Sub CopyData()
Dim ws As Worksheet, ws2 As Worksheet
Dim lRow As Long
Dim Rng As Range
 
    Application.ScreenUpdating = False
 
    Set ws = Worksheets("Liste des besoins")
    Set ws2 = Worksheets("Suivi")
 
    lRow = ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1
    Set Rng = ws.Cells(1).CurrentRegion
    Rng.Offset(2, 0).Resize(Rng.Rows.Count - 2, Rng.Columns.Count).Copy
    ws2.Cells(lRow, 8).PasteSpecial xlPasteAll
    Application.CutCopyMode = False
 
    Set Rng = Nothing
    Set ws2 = Nothing: Set ws = Nothing
 
End Sub
merci pour toute l'aide que vous pourrez m'apporter!