Sub oubli()
Dim i As Integer
Dim x As Integer
x = 0
i = 1
While i < 25
If Cells(i + 1, 1).Value - Cells(i, 1).Value <> 1 Then
Cells(i + 1, 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Cells(i, 1).Select
Selection.Copy
Cells(i + 2, 1).Select
ActiveSheet.Paste
Cells(i + 2, 1).Value = Cells(i, 1) + 1
Cells(i, 2).Select
Application.CutCopyMode = False
Selection.Copy
Cells(i + 2, 2).Select
ActiveSheet.Paste
Cells(i, 4).Select
Application.CutCopyMode = False
Selection.Copy
Cells(i + 2, 4).Select
ActiveSheet.Paste
End If
i = i + 1
Wend
End Sub