Problème conversion date

Bonjour,

j'ai un petit soucis suite à une macro pour convertir une date texte en format date, il se passe que lorsque j'active la macro les colonnes qui suivent s'effacent...

voici le code...

Columns("A:A").Select

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _

Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _

:=" ", FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True

Columns("E:E").Select

Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _

TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _

Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _

:=" ", FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True

Columns("F:F").Select

Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _

TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=False, _

Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _

:=" ", FieldInfo:=Array(1, 4), TrailingMinusNumbers:=True

Bonjour

Si tu joignais ton fichier, il serait plus facile de voir ce qu'il se passe et de corriger...

Bye !

Le voiçi.

C'est sur la macro convertir_date que le problème est.

En te remerciant.

Bonsoir,

Sub convert_date()
    Dim n%, i%, k%
    Application.ScreenUpdating = False
    With ActiveSheet
        n = .UsedRange.Rows.Count
        For i = 1 To n
            If IsDate(.Cells(i, 1)) Then
                .Cells(i, 1) = DateValue(.Cells(i, 1) _
                 & IIf(Len(.Cells(i, 1)) < 8, "/2017", ""))
                For k = 5 To 6
                    If IsDate(.Cells(i, k)) Then .Cells(i, k) = _
                     DateValue(.Cells(i, k) & IIf(Len(.Cells(i, k)) < 8, "/2017", ""))
                Next k
            End If
        Next i
    End With
End Sub

Cordialement.

Bonne continuation.