améliorer une Macro

[bpol]

Bonjour le Forum,

j'ai une macro de sauvegarde de données ds un tableau mais j'aimerais ajouter un complément afin que les cellules où son prise les données soient remises comme elles étaient avant modifications
Comment puis je faire

Merci ET Bonne année

Bpol

 

[bpol]

Re : améliorer une Macro

bonjour Carcharodon-carcharias,

si cela peux t'aider voici la macro
Dim Ligne As Integer

Sheets("dét. fact").Select
Ligne = Range("A65536").End(xlUp).Row + 1
Cells(Ligne, 1) = Sheets("facture").Range("C9")
Cells(Ligne, 2) = Sheets("facture").Range("C7")
Cells(Ligne, 3) = Sheets("facture").Range("G7")
Cells(Ligne, 4) = Sheets("facture").Range("J32")
Cells(Ligne, 5) = Sheets("facture").Range("J28")
Cells(Ligne, 6) = Sheets("facture").Range("G32")

'''''debut du tri
Range("A1:F" & Ligne).Select
Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlYes
End Sub
Merci
Bpol