Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Date = Application.WorksheetFunction.EoMonth(Date, 0) Then
Feuil2.Cells(Month(Date) + 1, 2) = Feuil1.Range("AI3")
Feuil2.Cells(Month(Date) + 1, 3) = Feuil1.Range("AK3")
Feuil2.Cells(Month(Date) + 1, 4) = Feuil1.Range("AL3")
End If
End Sub