Environnement : excel 2013

Bonjour à toutes et tous,
mon problème consiste à traduire des lignes de mise en forme conditionnelle (qui fonctionne tel que désiré), dans une macro.
Je précise que j'ai déja essayé d'enregistrer la macro en créant ces mises en formes sans succès.

Le règles sont les suivantes:

Formule := $B1 = "Enlapsed_Time" Format hh:mm:ss S'applique à :$C$1:$C$1000
Formule := $B1 = "Start_Time" Format hh:mm:ss S'applique à :$C$1:$C$1000
Formule := $B1 = "Stop_Time" Format hh:mm:ss S'applique à :$C$1:$C$1000
Formule := $B1 = "EDate" Format jj/mm/aaaa S'applique à :$C$1:$C$1000
Le but de la macro est d'éclater une ligne d'information en tableau puis d'afficher le bon format en fonction du type de donnée dans la colonne B.
A l'heure actuelle ma macro crée mon tableau correctement il me manque juste l'affichage correcte du type de donnée.

Ci-dessous la macro utilisée (non fonctionnelle à partir de l'instruction FOR):

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Macro3()
'
' Macro3 Macro
'
 
'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=True, OtherChar:= _
        ".", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), _
        Array(6, 1), Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
    Range("C:C,E:H").Select
    Range("E1").Activate
    Selection.Delete Shift:=xlToLeft
    Columns("A:A").ColumnWidth = 42
    Columns("B:B").ColumnWidth = 22
    Columns("C:C").Select
    ActiveWindow.Close
 
    For i = 1 To 1000
        If ("$Bi" = "Start_Time") Then
            Range("$Ci").Select
            'Selection.NumberFormat = "h:mm:ss"
        End If
        Next i
End Sub
Je n'utilise pas assez excel pour en connaitre toutes les subtilités donc quel que soient vos propositions, je suis à l'écoute.

D'avance merci pour votre aide !