Sub Bouton3_Clic()
Dim addLien As String, sLien As String, NomFeuil As String
Dim vdate As Date, Montant As Double
addLien = Range("B5").Hyperlinks(1).Address
sLien = Range("B5").Hyperlinks(1).TextToDisplay
Montant = Range("E5")
vdate = DateValue(Range("C5") & " " & Range("D5") & " 2010")
NomFeuil = Range("F5")
Application.ScreenUpdating = False
Workbooks.Open Filename:="E:\Kk\Temp\classeur1.xls"
With Sheets(NomFeuil)
.Activate
dl = .Range("A65536").End(xlUp).Row + 1
.Cells(dl, 1).Hyperlinks.Add .Cells(dl, 1), addLien, , , sLien
.Cells(dl, 2) = vdate
.Cells(dl, 3) = Date
.Cells(dl, 4) = Montant
End With
ActiveWorkbook.Save
ActiveWindow.Close
MsgBox ("Les factures sont encodées")
Range("C5:F5").ClearContents
ThisWorkbook.Close savechanges:=False 'pourquoi effacer avant alors ?
Application.ScreenUpdating = True
Application.Quit
End Sub