Bonsoir xtrvince, CHRIS1945,le forum,
Vois cette macro et la méthode Find :
Bien renseigner ses arguments.
Option Explicit
Sub test()
Dim rng As Range, myAreas As Areas, myArea As Range, ref As Range, adr2, Titre As String
Application.ScreenUpdating = False
Set rng = Sheets("TRI VILLE").Range("c1", Range("c" & Rows.Count).End(xlUp))
On Error Resume Next
Set myAreas = rng.SpecialCells(2).Areas
On Error GoTo 0
If myAreas Is Nothing Then Exit Sub
For Each myArea In myAreas
adr2 = myArea.Cells(1).Value
With Sheets("LISTE CODE")
Set ref = .Columns(1).Find(What:=adr2, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False)
If Not ref Is Nothing Then
Titre = ref.Offset(, 1).Value
myArea.Cells(1).Offset(-1, -1).Value = Titre
End If
End With
Next
Set rng = Nothing
Set myAreas = Nothing
Application.ScreenUpdating = True
End Sub
klin89