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