Bonsoir à tous, Tulipe, R@chid...
une proposition en VBA
Sub test()
Application.ScreenUpdating = False
Dim derCol As Integer, myRange As Range, a As Long, c As Integer
derCol = Cells(1, Columns.Count).End(xlToLeft).Column
a = 9
Do Until IsEmpty(Cells(a, "A"))
Set myRange = Range("A1").CurrentRegion.Resize(Range("A1").CurrentRegion.Rows.Count, 1).Find(Cells(a, "A"), , xlValues, xlWhole)
If Not myRange Is Nothing Then
For c = 2 To derCol
If Cells(1, c) = Cells(a, "B") Then Cells(a, "D") = Cells(myRange.Row, c): Exit For
Next c
Else
MsgBox "Le type " & Cells(a, 1) & " n'est pas référencé.)"
End If
a = a + 1
Loop
Application.ScreenUpdating = True
End Sub