archivage si imprimé

Sub Imprimer()
Dim LgPn As Long ' Variable stockant le N° de ligne à imprimer
Dim LgCp As Long ' Variable stockant le N° de ligne à copier et à supprimer

LgPn = Sheets("base").Range("A:A").Find(Sheets("contrat").Range("D6"), LookIn:=xlValues).Row
Sheets("contrat").PrintPreview
'Sheets("contrat").PrintOut 1, 1, 2
' Copie et suppression de la ligne imprimée
With Sheets("base")
  .Rows(LgPn).Copy
End With
' Ajout de la ligne imprimée dans la feuille sauvegarde
With Sheets("sauvegarde")
  LgCp = .Range("A65536").End(xlUp).Row + 1
  .Range("A" & LgCp).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
  [COLOR="Red"][B].Cells(LgCp, 12) = CDate(Now)[/B][/COLOR]
End With

End Sub