Public Sub JournalFermeture()
Dim DernLig As Integer
Sheets("JdB").Unprotect
On Error Resume Next
With Feuil1
DernLig = .Cells.SpecialCells(xlCellTypeLastCell).Row + 1
.Cells(DernLig, 14).Value = Format(Now, "mm/dd/yyyy hh:mm")
With .Range("A" & DernLig & ":N" & DernLig).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End With
Application.DisplayAlerts = False
ActiveWorkbook.Save
End Sub