Sub inserer_representants()
Dim numdep As String, col As Long
With Sheets("rech_1")
derlig = .Cells(.Rows.Count, "b").End(xlUp).Row
If derlig >= 2 Then
On Error Resume Next
For i = 2 To derlig
If .Cells(i, "b") <> "" Then
numdep = Left(.Cells(i, "b"), 2)
col = 0
col = Sheets("bdd_1").Range("A2:E11").Find(What:=numdep, _
LookIn:=xlValues, LookAt:=xlWhole).Column
If col > 0 Then .Cells(i, "c") = Feuil4.Cells(1, col).Value
End If
Next i
On Error GoTo 0
End If
Application.Goto .Range("a2"), True
End With
End Sub