Private Sub mois_Glissant_Tenons()

    'Variables
    Dim I As Integer
    Dim date_moisPrec As String
    With ThisWorkbook
        For I = 1 To 12
            date_moisPrec = Format(DateSerial(Year(Date), Month(Date) - 2 + I, 1), "mmm-yyyy")
            .Sheets(2).Cells(2, I + 2) = date_moisPrec
        Next
    End With
End Sub