Sub Analyse_Type1()
Set listefichiers = Worksheets("ListeFichiers")
For j = 9 To listefichiers.Range("A" & Rows.Count).End(xlUp).Row
'Type de Document
Cells(j, 2).Value = Txt(Replace(Cells(j, 1), " ", "", 1))
'N° Document
Cells(j, 3).Value = "'" & Replace(Replace(Cells(j, 1), " ", ""), Cells(j, 2), "")
Next j
End Sub