'Ajout des valeurs relatives à la cotation maritime de l'ILN à l'usine du projet
With Sheets("Cotation maritime")
Set RecherchePortILN = .Range(.Cells(2, 3), .Cells(.Cells(65536, 3).End(xlUp).Row, 3))
'Recherche du port ILN dans la plage des cotations maritimes
Set h = RecherchePortILN.Find(what:=port_ILN, LookIn:=xlValues, LookAt:=xlPart)
'Boucle qui teste la présence du port usine pour définir la cotation maritime
If Not h Is Nothing Then
firstAddress = h.Address
Do
'Recherche le flux entre l'ILN choisi et l'usine du projet
If h.Offset(0, 2).Value = definition_port_usine Then
'Si flux trouvé, alors copie dans la case cotation maritime de la cotation
.Cells(31, der_colonne).Value = h.Offset(0, 3).Value
Else: Set h = .FindNext(h)
'On boucle sur la recherche du port ILN tant qu'on en trouve
'et tant qu'on ne retrouve pas la première ligne trouvée
End If
Loop While Not h Is Nothing And h.Address <> firstAddress
End If
End With