Salut Alex santana,
les formats de dates sont une casse-c...rie, made by Microsoft...
La solution ci-dessous est valable pour ce fichier-ci.
tExtract(0, iIdx - 1) = Format(tExtract(0, iIdx - 1), "[$-40c]mm/dd/yyyy")
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tData, tExtract(), iIdx%
'
Cancel = True
'
tData = Range("A1").CurrentRegion.Value
For x = 2 To UBound(tData, 1)
For y = 4 To UBound(tData, 2)
iIdx = iIdx + 1
ReDim Preserve tExtract(4, iIdx)
For Z = 1 To 4
tExtract(Z - 1, iIdx - 1) = tData(Choose(Z, 1, x, x, x), Choose(Z, y, 3, 2, y))
Next
tExtract(0, iIdx - 1) = Format(tExtract(0, iIdx - 1), "[$-40c]mm/dd/yyyy")
Next
Next
With Worksheets("2")
.Cells.Delete
.Range("A1").Value = "Date"
.Range("B1").Value = "Engin"
.Range("C1").Value = "Chantier"
.Range("D1").Value = "Statut"
.Range("A2").Resize(iIdx, 4).Value = WorksheetFunction.Transpose(tExtract)
.Range("A1").CurrentRegion.Borders.LineStyle = xlContinuous
.Columns("A:D").AutoFit
.Activate
End With
'
End Sub
A+