Bonjour ou rebonjour à tou(te)s,

je viens de faire un petit test et ne m'explique pas le résultat

1 colonne (A) avec des cellules formatées au format date (ex : 01/01/2012)

j'execute ce code simple :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub aa()
Dim tbl(1 To 10), x As Integer
tbl(1) = Date
MsgBox tbl(1)
For x = 2 To 10
tbl(x) = Date + x
Next
 
Range("a2:a11") = Application.WorksheetFunction.Transpose(tbl)
End Sub
et je regarde le résultat : seule la cellule "A2" se retrouve au format anglais, soit ; 02/11/2012 au lieu de 11/02/2012

Merci d'avance à ceux qui connaissent la solution et daigneront me répondre

bonne journée