Sub Test()
Dim Tablo(), Col%, c As Range, Plg, i&, LstRw&
With Sheets("Feuil2")
For Col = 1 To 12
Set Plg = .Range(Cells(2, Col), .Cells(Rows.Count, Col).End(xlUp))
LstRw = LstRw + Plg.Rows.Count
ReDim Preserve Tablo(1 To LstRw)
For Each c In Plg
If c.Value <> "" Then
i = i + 1
Tablo(i) = Format(c.Value, "m/d/yyyy")
End If
Next c
Next Col
.Cells(2, 16).Resize(UBound(Tablo)) = Application.Transpose(Tablo)
End With
End Sub