For i = 3 To 94
tickerrecherche = ticker(i)
valeurticker = valeur(i)
Set Ligneticker = Range("A1:A10000").Find(tickerrecherche, LookIn:=xlValues, LookAt:=xlWhole)
If Not Ligneticker Is Nothing Then
Dcreation = Ligneticker.Row
Cells(Dcreation, 7) = valeurticker
If valeurticker = "0d-mm-yyyy" Then
valeurticker = Replace(valeurticker, "dd-mm-yyyy", "d-mm-yyyy") * 1
With Application.Workbooks(WORKBOOK_GUIDE).Sheets(SHEET _TRAVAIL_GUIDE).Cells(Dcreation, 7)
.Value = valeurticker
.NumberFormat = ""
End With
[B][SIZE=3][COLOR=red]End If[/COLOR][/SIZE][/B]
End If
Next i