Sub ArchiverFacture()
  Dim i As Long, Ligne As Long
  Dim Nomfichier As String, Chemin As String
    
  Nomfichier = Format(Now() - 1, " dd-mm-yyyy") & Format(Time, " hh-mm")
Chemin = "C:\Users\FORCE TB\Desktop\Facture_archive_Coco\Facture"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Nomfichier & ".pdf"

  Ligne = Sheets("Historique_Facture").Range("A" & Rows.Count).End(xlUp).Row + 1
  Sheets("Historique_Facture").Range("A" & Ligne).Value = Sheets("FACTURE").Range("B6").Value
  Sheets("Historique_Facture").Range("B" & Ligne).Value = Sheets("FACTURE").Range("B8").Value
  Sheets("Historique_Facture").Range("C" & Ligne).Value = Sheets("FACTURE").Range("B11").Value
  Sheets("Historique_Facture").Range("D" & Ligne).Value = Sheets("FACTURE").Range("D7:E7:F7").Value
  Sheets("Historique_Facture").Range("E" & Ligne).Value = Sheets("FACTURE").Range("D8:E8:F8").Value
  Sheets("Historique_Facture").Range("F" & Ligne).Value = Sheets("FACTURE").Range("D9:E9:F9").Value
  Sheets("Historique_Facture").Range("G" & Ligne).Value = Sheets("FACTURE").Range("D10:E10:F10").Value
  Sheets("Historique_Facture").Range("H" & Ligne).Value = Sheets("FACTURE").Range("D11").Value
  Sheets("Historique_Facture").Range("I" & Ligne).Value = Sheets("FACTURE").Range("F36").Value
  Sheets("Historique_Facture").Range("J" & Ligne).Value = Sheets("FACTURE").Range("F41").Value
  Sheets("Historique_Facture").Range("K" & Ligne).Value = Sheets("FACTURE").Range("B8").Value
      
  Sheets("Genel").Range("B2") = Sheets("Genel").Range("B2") + 1
  Sheets("Genel").Range("C2") = Sheets("Genel").Range("C2") + 1
    
  
   ActiveWindow.SmallScroll Down:=2
    Range("D7:F7,D7:F7,B14:B28,D14:D28").Select
    Range("D14").Activate
    ActiveWindow.SmallScroll Down:=15
    Range("D7:F7,D7:F7,B14:B28,D14:D28,B30:E34,F37,F39,F40").Select
    Range("F40").Activate
    Selection.ClearContents
    ActiveWindow.SmallScroll Down:=-24
    Range("D7:F7").Select
    
      
        Chemin = "C:\Users\FORCE TB\Desktop\Facture_archive_Coco\Facture"
        'ChDir Chemin
        Chemin = Chemin & ""
        Nomfichier = Format(Now() - 1, " dd-mm-yyyy") & Format(Time, " hh-mm") & ".pdf"
        
        Ligne = Sheets("Historique_Facture").Columns(1).Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious, LookIn:=xlValues).Row

With Sheets("Historique_Facture")
    .Hyperlinks.Add .Range("K" & Ligne), Chemin & Nomfichier
    Sheets("Facture").Select


End With

MsgBox "FICHIER ENREGISTRE," & vbCrLf & "VEUILLEZ VERIFIER VOTRE DOSSIER SVP", vbInformation + vbOKOnly, "INFORMATION"

Ligne = Sheets("Stock").Range("C2").End(xlDown).Row + 1
    
    Sheets("Stock").Range("A" & Ligne).Value = Sheets("FACTURE").Range("B8").Value
    Sheets("Stock").Range("B" & Ligne).Value = Sheets("FACTURE").Range("B11").Value
    
    For i = 14 To 28
      If Sheets("Facture").Range("C" & i).Value = "" Then Exit For
      Sheets("Stock").Range("C" & Ligne).Value = Sheets("FACTURE").Range("C" & i).Value
      Sheets("Stock").Range("D" & Ligne).Value = Sheets("FACTURE").Range("D" & i).Value
      Sheets("Stock").Range("E" & Ligne).Value = Sheets("FACTURE").Range("E" & i).Value
      Ligne = Ligne + 1
      Next

With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
    
End Sub