'test erreur eventuelle
If ((Len(Cells(ligtravail1, coltravail1)) - Len(replace(Cells(ligtravail1, coltravail1), "_", ""))) / Len("_")) <> 5 Then
MsgBox ("ERREUR" & Chr(10) & Chr(10) & "Erreur de chemin : ligne " & i & Chr(10) & Chr(10) & "Objet : " & Cells(ligtravail1, coltravail1).Value)
Exit Sub
Else
'suite du programme