Sub Pour_test()
Dim f As Worksheet, INSEE, t
Set f = Worksheets("CP")
t = Range(f.Cells(2, 1), f.Cells(Rows.Count, 4).End(3))
Randomize Asc("Staple") + 1600
INSEE = Application.RandBetween(1001, 1050)
On Error Resume Next
vCP = Application.VLookup(INSEE, t, 3, 0) ' CP
vLA = Application.VLookup(INSEE, t, 4, 0) ' libellé d'acheminement
MsgBox vCP & Chr(13) & vLA, vbInformation, "Test"
End Sub
En guise de pistes