Hello,
Here is my code :
Sub VlookupAmeliorer()
'
' Macro2 Macro
'
Dim i As Integer
Dim LastRowL As Integer
LastRowL = Sheets("PlanEX-Origine").Cells(Rows.Count, 12).End(xlUp).Row
For i = 2 To LastRowL
If Len(Cells(23, i)) < 255 Then
Range("W" & i).FormulaR1C1 =...