MACRO récupération de données d'une feuille--> transfert vers une autre feuille

Sub tttttt()
    Dim plg As Range, c As Range
'retenir colonne A de PREVU comme colonne source de référence
    With Sheets("PREVU")
         Set plg = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
    End With
    
    With Sheets("DONNEES EXPORTEES")
        Set c = .Range("A" & Rows.Count).End(xlUp)

        c.Offset(, 1).Resize(plg.Rows.Count).Value = plg.Parent.Range("B1").Value 'mettre année en colonne b
        plg.Copy c
        plg.Offset(, 1).Copy c.Offset(, 9)  'colonne J
        plg.Offset(, 2).Copy c.Offset(, 22) 'colonne W
    End With
End Sub

Set c = .Range("A" & Rows.Count).End(xlUp)

Set c = .Range("A" & Rows.Count).End(xlUp).offset(1)