Sub récupération_données(ByVal ligne As Integer)
Dim lign_rech, i, j As Integer

'info generale

i = Workbooks(C).Worksheets(O_ind).Range("coin_index").Row
Do Until Workbooks(C).Worksheets(O_ind).Cells(i, 1).Value = ""
    
    Select Case Workbooks(C).Worksheets(O_ind).Cells(i, 1).Value
    Case "large"
    Case "cache"
    Case Else
        Worksheets(O_synth).Cells(ligne, prem_col + Workbooks(C).Worksheets(O_ind).Cells(i, 2).Value).Value = Worksheets(O_trav).Range(Workbooks(C).Worksheets(O_ind).Cells(i, 3).Value).Value
    End Select
    i = i + 1
Loop

'mise en forme des cellules
With Worksheets(O_synth)
Application.AutoFormatAsYouTypeReplaceHyperlinks = False
    'lien hypertexe des fiches
    .Cells(ligne, prem_col + 1).Select
    .Hyperlinks.Add .Cells(ligne, prem_col + 1), Address:="file://" & .Cells(ligne, prem_col + 1).Value
    'date de création
    j = 2
    If (InStr(1, .Cells(ligne, prem_col + j).Value, "supp", vbTextCompare) > 0) Then
        .Cells(ligne, prem_col + j).Value = "SUPPRIMER"
    End If
    'Famille boite
    j = 6
    .Cells(ligne, prem_col + j).Value = Left(.Cells(ligne, prem_col + j).Value, 3)
    'indice boite
    j = 7
    .Cells(ligne, prem_col + j).NumberFormat = "@"
    .Cells(ligne, prem_col + j).Value = Right("000" & Left(Right(.Cells(ligne, prem_col + j).Value, Len(.Cells(ligne, prem_col + j).Value) - 4), 3), 3)
    
    'commentaire / exception
    j = 8
    If Len(.Cells(ligne, prem_col + j).Value) > 6 Then
        .Cells(ligne, prem_col + j).Value = Trim(Right(.Cells(ligne, prem_col + j).Value, Len(.Cells(ligne, prem_col + j).Value) - 7))
    Else
        .Cells(ligne, prem_col + j).Value = ""
    End If
    'couple prignon & traitement
    For j = 30 To 46 Step 3
    .Cells(ligne, prem_col + j).Value = couple(.Cells(ligne, prem_col + j).Value)
    .Cells(ligne, prem_col + j + 1).Value = TT_entrainant(.Cells(ligne, prem_col + j + 1).Value)
    .Cells(ligne, prem_col + j + 2).Value = TT_entrainé(.Cells(ligne, prem_col + j + 2).Value)
    Next
    'pignon tachy
    j = 49
    .Cells(ligne, prem_col + j).Value = MIE_TACHY(.Cells(ligne, prem_col + j).Value)
End With

End Sub


Sub mise_en_forme()
i = Workbooks(C).Worksheets(O_ind).Range("coin_index").Row
Do Until Workbooks(C).Worksheets(O_ind).Cells(i, 1).Value = ""
    Select Case Workbooks(C).Worksheets(O_ind).Cells(i, 1).Value
    Case "cache"
        Worksheets(O_synth).Columns(Workbooks(C).Worksheets(O_ind).Cells(i, 2).Value + prem_col).EntireColumn.Hidden = True
    Case "large"
        Worksheets(O_synth).Columns(Workbooks(C).Worksheets(O_ind).Cells(i, 2).Value + prem_col).ColumnWidth = Workbooks(C).Worksheets(O_ind).Cells(i, 3).Value
    Case Else
        Worksheets(O_synth).Cells(prem_lign, prem_col + Workbooks(C).Worksheets(O_ind).Cells(i, 2).Value).Value = Workbooks(C).Worksheets(O_ind).Cells(i, 1).Value
        Worksheets(O_synth).Columns(Workbooks(C).Worksheets(O_ind).Cells(i, 2).Value + prem_col).EntireColumn.AutoFit
    End Select
    i = i + 1
Loop
Worksheets(O_synth).Rows(prem_lign).AutoFilter
End Sub