Lien Hypertexte

.Hyperlinks.Add .Cells(i, 6), SaveFacture(Facture)

' Enregistrement ou mise à jour infos Facture
Private Sub SaveInfos(Facture As Worksheet, FactureClients As Worksheet, ByVal i As Long)
With FactureClients
  .Rows(6).Insert Shift:=xlDown
  .Cells(6, 1) = Facture.Range("L4")                    ' Réf
  .Cells(6, 2) = Facture.Range("N12")                   ' N°
  .Cells(6, 3) = Facture.Range("I17")                   ' Date
  .Cells(6, 4) = Facture.Range("I10")                   ' N° Facture
  .Cells(6, 5) = Facture.Range("C13")                   ' Nom
  .Cells(6, 7) = Facture.Range("C14")                   ' Adresse
  .Cells(6, 8) = Facture.Range("C15")                   ' Code P.
  .Cells(6, 9) = Facture.Range("F15")                   ' Ville
  .Cells(6, 10) = Facture.Range("C16")                   ' Tél.
  .Cells(6, 11) = Facture.Range("F16")                  ' Portable
  .Cells(6, 12) = Facture.Range("C17")                  ' Fax
  .Cells(6, 13) = Facture.Range("F17")                  ' E-mail
  .Cells(6, 3).NumberFormat = "m/d/yyyy"
  .Hyperlinks.Add .Cells(6, 5), SaveInfos(Facture)   ' Lien hyperlink
  .Cells(6, 5).Font.Size = 9
  .Cells(6, 14) = Facture.Range("J36")                  ' Montant HT
  .Cells(6, 15) = Facture.Range("J38")                  ' Montant TVA 19.6 %
  .Cells(6, 16) = Facture.Range("J39")                  ' Montant TVA 5.5 %
  .Cells(6, 18) = Facture.Range("J41")                  ' Montant TTC
  .Cells(6, 17) = Facture.Range("J40")                  ' Montant TVA
End With
MsgBox "Infos facture " & Facture.Range("I10") & " enregistrées !"
End Sub