Sub manquent()
lig = Cells(6500, 1).End(xlUp).Row
For i = 4 To lig
If Cells(i, 1) / 100 <> (Cells(i - 1, 1) / 100) + 1 Then
Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i, 1) = Cells(i - 1, 1) + 100
lig = lig + 1
End If
Next
Range("A3:A" & lig).Copy
Range("K3").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Columns("K:XFD").EntireColumn.AutoFit
[K3].Select
End Sub