re bonjour ou bonsoir
A force de chercher, désoler je suis aller sur le site de Frederic Sigonneau et là, sur les calendriers c'est la mine.
donc voila une soluce qui me va
Sub CalendrierLudo()
'fs, mpfe
Dim deb#, fin#, NbJours&, i#
Dim Cell As Range, Li&, Col%
On Error Resume Next
deb = CDate(InputBox("Première date du calendrier :"))
fin = CDate(InputBox("Dernière date du calendrier :"))
If Err <> 0 Then Exit Sub
Set Cell = Application.InputBox _
("Sélectionnez la cellule où commence le calendrier", Type:=8)
If Err <> 0 Then Exit Sub
Li = Cell.Row: Col = Cell.Column
For i = deb To fin
Cells(Li, Col).Value2 = i
If Weekday(i, vbMonday) > 5 Then _
Cells(Li, Col).Interior.ColorIndex = 6
Cells(Li, Col).NumberFormatLocal = "jjjj jj/mm/aaaa"
Li = Li + 1
Next i
End Sub
Merci à tous
@+denis