For LigneTraité = 1 To derli
If Left(Cells(LigneTraité, 1), 11) = "INTERIMAIRE" Then
NuméroMatricule = Right(Cells(LigneTraité, 1), 8)
Else
If Cells(LigneTraité, 1) <> "" And Cells(LigneTraité,1) <> "Total par salarié:" Then Cells(LigneTraité, 6) = NuméroMatricule
End If
Next LigneTraité