Sub test()
Dim i%, j%, p%, n%
Sheets("saisie des données").Select
With Sheets("COT")
For i = 9 To Range("A65536").End(xlUp).Row
For n = 5 To 10
For j = 2 To .Range("IV2").End(xlToLeft).Column
If .Cells(1, j).Value = Cells(i, 4).Value Then
For p = 3 To 34
If .Cells(p, j + n - 5).Value = Cells(i, n).Value Then
Cells(i, n + 6).Value = .Cells(p, 1).Value
Exit For
Else
Select Case n
Case 5, 6, 9, 10
If .Cells(p, j + n - 5).Value < Cells(i, n).Value Then
Cells(i, n + 6).Value = .Cells(p, 1).Value
Exit For
End If
Case Else
If .Cells(p, j + n - 5).Value > Cells(i, n).Value Then
Cells(i, n + 6).Value = .Cells(p, 1).Value
Exit For
End If
End Select
End If
Next p
End If
Next j
Next n
Next i
End With
End Sub