Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
    For i = 1 To j 'remplissage du contenu du csv dans un tableau
        tab_csv = Array(Workbooks("localmasse.csv").Worksheets("localmasse").Cells(i, 1).Value, Workbooks("localmasse.csv").Worksheets("localmasse").Cells(i, 2).Value)
    Next i
    'MsgBox (Workbooks("localmasse.csv").Worksheets("localmasse").Cells(1, 1).Text)
 
    For i = 1 To j 'remplit en testant le premier digit
        Workbooks("local_masse.xls").Worksheets("lm1").Cells(2, i).Value = tab_csv(1, i)
        If Left(tab_csv, 1) = "B" Then
            Workbooks("local_masse.xls").Worksheets("lm2").Cells(2, i).Value = tab_csv(1, i)
        End If
    Next i
J'arrive pas à inserer le contenu de mon Array dans mon .xls pouvez-vous m'aider ?

Bibil au secours