Sub Aie_Caramba_Que_Pasa()
Dim jf: [B1:C13].NumberFormat = "dddd dd mmmm yyyy"
jf = Array(42930, 42962, 43040, 43050, 43094, 43101, 43191, 43192, 43221, 43228, 43230, 43240, 43241, 43295, 43327, 43405, 43415, 43459)
Cells.ClearContents
With [K1].Resize(UBound(jf) + 1)
.Value = Application.Transpose(jf)
.Name = "JFER": .NumberFormat = ";;;"
End With
[A1] = 42931: [A1].NumberFormat = "mmmm yyyy": [A1].DataSeries 2, 3, 3, 1, 43296, 0
'formule Modeste geedee
[B1:B13].FormulaR1C1 = "=WORKDAY(DATE(YEAR(RC[-1]),MONTH(RC[-1])+1,1),-1,JFER)": [B1].Select
'formule d'eriiiic (initialement salopée par Staple) mais corrigée par eriiiic
'la formule ci-dessous est donc désormais OK ;-)
[C1:C13].FormulaR1C1 = "=WORKDAY(EOMONTH(RC[-2],0)+1,-1,JFER)"
End Sub