Utiliser la fontionnalité Convertir en VBA - format date des cellules

bonjour,

je voudrais transformer le format des 2 colonnes ( Fichier en PJ) en format date avec une macro vba .

j'ai essayé avec la fonctionnalité convertir , mais je n'arrive pas a l'automatiser avec vba

Merci pour votre aide

Bonjour

Ci joint ma solution

A+ François

Bonjour,

Et une autre proposition.

Cdlt.

Public Sub ConvertStringToDateTime()
Dim lastRow As Long, tbl, arr(), i As Long
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        tbl = .Cells(1).CurrentRegion.Offset(1).Resize(lastRow - 1, 2).Value
        ReDim arr(1 To UBound(tbl), 1 To 2)
        For i = 1 To UBound(tbl)
            arr(i, 1) = CDate(tbl(i, 1))
            arr(i, 2) = CDate(tbl(i, 2))
        Next i
        .Cells(2, 1).Resize(UBound(tbl), 2).Value = arr
    End With

End Sub