Sub PremiersBis()
Dim Base As Long, i As Long, j As Long
Dim Jmax As Long, Pas As Long, tablo As Variant
Dim Result As Variant
Range("C2:C" & Rows.Count).ClearContents
Base = Range("A2")
Application.ScreenUpdating = False
ReDim tablo(2 To Base)
For i = 2 To Base: tablo(i) = i: Next i
j = 2
Do While j < Sqr(Base)
If tablo(j) <> "" Then
Pas = tablo(j)
For i = j + Pas To Base Step Pas
tablo(i) = ""
Next i
End If
j = j + 1
Loop
j = 1
ReDim Result(2 To Base)
For i = 2 To Base
If tablo(i) <> "" Then
j = j + 1
Result(j) = tablo(i)
End If
Next i
ReDim Preserve Result(2 To j)
Range("C2").Resize(j - 1).Value = Application.Transpose(Result)
Application.ScreenUpdating = True
End Sub