Bonjour GMB,
Déjà merci. je n'avais pas vu ta réponse oui j'ai fais une erreur dans mon tableau. Par contre niveau macro je suis plus que débutant!!
Pourrais tu m'expliquer le fonctionnement de ta macro?
Merci par avance.
Sub Ref()
Range("C4:C" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents
tablo = Range("A4:C" & Range("A" & Rows.Count).End(xlUp).Row)
Set dico = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(tablo, 1)
If tablo(i, 2) <> "" Then
dico(tablo(i, 1)) = tablo(i, 2)
End If
Next i
For i = 1 To UBound(tablo, 1)
tablo(i, 3) = dico(tablo(i, 1))
Next i
Range("A4").Resize(UBound(tablo, 1), 3) = tablo
End Sub