If valeurCherchee = "VOIE COTE ROUTE" Then
TargetWorkbook.Sheets("PLF").Range("B" & derLigneRoute) = ws.Cells(i, 2).Value
If ws.Cells(i, 4) = "X" Then
TargetWorkbook.Sheets("PLF").Range("C" & derLigneRoute) = ws.Cells(i, 3).Value
End If
If ws.Cells(i, 6) = "X" Then
TargetWorkbook.Sheets("PLF").Range("C" & derLigneRoute) = ws.Cells(i, 5).Value
End If
If ws.Cells(i, 8) = "X" Then
TargetWorkbook.Sheets("PLF").Range("C" & derLigneRoute) = ws.Cells(i, 7).Value
End If
If ws.Cells(i, 10) = "X" Then
TargetWorkbook.Sheets("PLF").Range("C" & derLigneRoute) = ws.Cells(i, 9).Value
End If