Public Sub HistoriqueConnexion(action$, Utilisateur$)
Dim Lr&, Mois$
Mois = StrConv(MonthName(Month(Date)), vbProperCase)
With ThisWorkbook.Sheets("Hist Con")
Lr = .Cells(Rows.Count, 1).End(3)(2).Row
.Cells(Lr, 1).Resize(, 5) = Array(Utilisateur, Now, action, Mois, Year(Date))
End With
End Sub