bonjour,
si tu veux absolument passer par VBA.
Sub aargh()
With Sheets("sheet1")
dl = .Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To dl
.Cells(i, "P") = .Cells(i, "B") & .Cells(i, "L")
Next i
End With
End Sub
sinon tu mets
=B2 & L2
en P2 et tu tires vers le bas