While i <= TailleTabChemin
If TabChemin(i) <> ActiveWorkbook.Path & "\" & ThisWorkbook.Name Then
Resultat = TestFichier(TabChemin(i))
TabResultat = TrRepTestFichier(Resultat)
If TabResultat(0) = "False" Then
[COLOR="Red"]Conclusion = Conclusion & TabResultat(1)[/COLOR]
ElseIf TabResultat(0) = "True" Then
TraitementFichier (TabChemin(i))
[COLOR="red"]Conclusion = Conclusion & TabResultat(1)[/COLOR]
Else
MsgBox "pwet!!"
End If
'TraitementFichier (TabChemin(i))
End If
i = i + 1
Wend