Bonjour,
Sub J_Ouvres()
Dim mois As Long, annee As Long, date1 As Date
Dim fini As Boolean, i As Long, j As Long
mois = 6: annee = 2014
[A1:W1].ClearContents
[A1] = CDate("1/" & mois & "/" & annee)
Do
i = i + 1
date1 = (Application.WorkDay_Intl(CDate([A1]), i))
If Month(date1) = mois Then
[A1].Offset(, i) = date1
Else
fini = True
End If
Loop Until fini
End Sub
Le fait que tu aies mis la plage en tableau amène des bizarreries.
Comme j'utilise la fonction SERIE.JOUR.OUVRE.INTL, tu peux facilement ajouter une liste des fériés et y faire référence.
eric