If (ComingNext <> "NON") Then
NbEvs = NbEvs + 1
'fonction de récupération de l'id coming next
'1) recherche la position de l'intitulé du coming next dans la page "id cn"
PositionListeCn = WorksheetFunction.Match(ComingNext, [REF_COMING_NEXT], 0)
If Err Then
PositionListeCn = 0
On Error GoTo 0
End If
If PositionListeCn > 0 Then
'2) récupère l'id du cn trouvé, situé dans la colonne de droite de l'intitulé du cn
IdComingNext = [REF_COMING_NEXT].Item(PositionListeCn, 2).Value
EvsComingNext = "01" & vbTab & vbTab & vbTab & IdComingNext & vbTab & OffsetComingNext & vbTab & DureeComingNext & vbTab & vbTab
End If
Else
NbEvs = NbEvs + 0
End If