Public Sub report()
Dim i As Integer
Dim pos As Variant
For i = 2 To Cells(1, 1).End(xlDown).Row
Set pos = Cells.Find(What:=Sheets("base").Cells(i, 1).Value, After:=Sheets("table des correspondances").Cells(1, 1), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not pos Is Nothing Then
Sheets("base").Cells(i, 2).Value = Sheets("table des correspondances").Cells(pos.Row, 2)
End If
Next i
End Sub