Affichage format date

'exemple sur excel avec la date en C1 "01/02/2014"
'en C2 =JOUR($C$1+0)&CHOISIR(JOURSEM($C$1+0;2);"L";"M";"M";"J";"V";"S";"D")
'en C3 =JOUR($C$1+1)&CHOISIR(JOURSEM($C$1+1;2);"L";"M";"M";"J";"V";"S";"D")
'en C4 =JOUR($C$1+2)&CHOISIR(JOURSEM($C$1+2;2);"L";"M";"M";"J";"V";"S";"D")
'...
'
'
'ton code n'est pas tout à fais correcte,
'car le 1'février 2014 c'est Samedi et non pas Dimanche !
'pour les jours de sem c'est selon les réglages des paramètres dans windows !?
'   premier jour Lundi ou Dimanche ?
'si Dimanche ici > UCase(Left(Format(I - 0, "ddd"), 1))
'si Lundi    ici > UCase(Left(Format(I - 1, "ddd"), 1))

'ensuite pour les dates inf. au 01/03/1900 il faut ajouter+1 à la date!
' pour s'en convaincre il suffit de TAPER F5 ici
'(la raison pour laquelle j'utilise ma function FNbrDeJrMois())
Sub VerificationDate()
Dim Dat As Date
Dat = "01/01/1900" ' ici il donne 30 alors que c'est 31 !
MsgBox Day(WorksheetFunction.EoMonth(Dat, 0)) 
Dat = "01/02/1900" ' ici il donne 27 alors que c'est 28 !
MsgBox Day(WorksheetFunction.EoMonth(Dat, 0)) 
End Sub



Sub TonCodeModifie()
Dim I%, J$
For I = 1 To FNbrDeJrMois(Year(Date), Month(Date))
 If I < 10 Then J = "0" & I Else J = I
 MsgBox J & UCase(Left(Format(I - 1, "ddd"), 1))
 'Range("B" & I + 6) = J & UCase(Left(Format(I - 1, "ddd"), 1))
Next
End Sub

Private Function FNbrDeJrMois(AnneeX, MoisX) As Integer
FNbrDeJrMois = Choose(MoisX, 31, 28 + (1 And IsDate("29/02/" & AnneeX)), 31, 30, 31, 30, 31, 31, 30, 31, 30, 31)
'ou If AnneeX Mod 4 = 0 And (AnneeX Mod 100 <> 0 Or AnneeX Mod 400 = 0) Then Fev = 29 Else Fev = 28
End Function

Dim j As String
For i = 1 To Day(WorksheetFunction.EoMonth(Date, 0))
If i < 10 Then
    j = "0" & i
    Else
    j = i
End If
Range("B" & i + 6).Font.Size = 10
Range("B" & i + 6) = j & UCase(Left(Format(i - 1, "ddd"), 1))
If UCase(Left(Format(i - 1, "ddd"), 1)) = "S" Then
    Range("C" & i + 6) = "CC"
    Else
    If UCase(Left(Format(i - 1, "ddd"), 1)) = "D" Then
        Range("C" & i + 6) = "CR"
        Else
        Range("C" & i + 6) = "JT"
    End If
End If
Next i

Dim i As Integer
    For i = 1 To Day(WorksheetFunction.EoMonth(Date, 0))
        Range("B" & i + 6).Font.Size = 10
        Range("B" & i + 6) = Format(i, "00") & UCase(Left(Format(i, "ddd"), 1))
        Select Case Right(Range("B" & i + 6), 1)
            Case Is = "S"
                Range("C" & i + 6) = "CC"
            Case Is = "D"
                Range("C" & i + 6) = "CR"
            Case Else
                Range("C" & i + 6) = "JT"
        End Select
    Next i

=TEXTE(A1;"jj")&STXT("LMMJVSD";JOURSEM(A1;2);1)