Suite...
Merci JCGL !
Meilleur :
Sub bbb()
Dim i&, j&, p As Range, q As Range, v(), w(), x#
With Application: .ScreenUpdating = 0: .EnableEvents = 0: .Calculation = -4135: End With
Set p = Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Offset(0, 1).Cells
w = p.Value
j = 1
Do...