Sub Lit_Donnees2()
Dim TInfo() As String
Dim Nb As Integer, Ind As Integer
Dim Deb As Long, Lig As Long
Lig = 6
Sheets("SF").Select
Nb = WorksheetFunction.CountA(Columns(10)) - 4
'Nb = Sheets("SF").Application.CountA(Range("J7:J" & Range("B1", Range("B65535").End(xlUp)).Rows.Count))
ReDim TInfo(1 To Nb, 1 To 3) 'nb lignes,3 colonnes
For Ind = 1 To Nb
Deb = Range("J" & Lig).End(xlDown).Row
Lig = Deb
TInfo(Ind, 1) = Trim(Cells(Lig, 2))
TInfo(Ind, 2) = Cells(Lig, 2).Offset(0, 3)
TInfo(Ind, 3) = Cells(Lig, 2).Offset(0, 8)
Next Ind
Sheets("Feuil1").Select
For Ind = LBound(TInfo, 1) To UBound(TInfo, 1) 'index ligne
For c = LBound(TInfo, 2) To UBound(TInfo, 2) 'index colonne
Cells(Ind, c) = TInfo(Ind, c)
Next c
Next Ind
' Range("B" & Ind) = TInfo(Ind, 2)
' Range("C" & Ind) = TInfo(Ind, 3)
End Sub