Fonction Convertir en VBA - Problème format heure

Bonjour,

J'ai utilisé l'enregistreur de macro pour la fonction convertir afin de fractionner un colonne en plusieurs.

Dans ma colonne j'ai la date et l'heure, que je veux séparer en deux colonnes.

Sub Convertir()
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Selection.NumberFormat = "m/d/yyyy"
    Columns("B:B").Select
    Selection.NumberFormat = "hh:mm"
End Sub

Quand je le fais manuellement, tout marche bien, mais quand je lance avec la macro, les heures se transforment en heure anglaise avec dans une colonne PM ou AM.

Pourquoi ce changement de format d'heure ?

Comment rester en heure francaise ?

Merci d'avance

Bonjour Flow1995, le forum,

Un essai:

Sub test()
 Dim i  As Integer, dl As Integer

  With Sheets("Feuil1")
   dl = .Range("E" & Rows.Count).End(xlUp).Row
    For i = 1 To dl
     .Range("A" & i) = Format(.Range("E" & i), "dd/mm/yyyy")
     .Range("B" & i) = Format(.Range("E" & i), "hh:mm:ss")
    Next i
  End With
End Sub

Cordialement,

Je l'ai adapté à mon fichier et ca marche ! Merci xorsankukai pour ta réponse rapide !

Merci pour ton retour,

Ravi d'avoir pu t'aider.

Cordialement,