Sub ArchiverFacture()
  Dim Ligne%, Whd As Worksheet, Wd As Worksheet
  Dim Nomfichier As String, Chemin As String
  Set Whd = Sheets("Historique_Facture")
  Set Wd = Sheets("FACTURE")
  
  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 = Whd.Range("A" & Rows.Count).End(xlUp).Row + 1
  Whd.Range("A" & Ligne).Value = Wd.Range("B6").Value
  Whd.Range("B" & Ligne).Value = Wd.Range("B8").Value
  Whd.Range("C" & Ligne).Value = Wd.Range("B11").Value
  Whd.Range("D" & Ligne).Value = Wd.Range("D7:E7:F7").Value
  Whd.Range("E" & Ligne).Value = Wd.Range("D8:E8:F8").Value
  Whd.Range("F" & Ligne).Value = Wd.Range("D9:E9:F9").Value
  Whd.Range("G" & Ligne).Value = Wd.Range("D10:E10:F10").Value
  Whd.Range("H" & Ligne).Value = Wd.Range("D11").Value
  Whd.Range("I" & Ligne).Value = Wd.Range("F36").Value
  Whd.Range("J" & Ligne).Value = Wd.Range("F41").Value
  Whd.Range("K" & Ligne).Value = Wd.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"

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