Sub copie()
Dim n%, a%, b%, c%, d%
Sheets("1").Range("E1:H1000").Clear
a = Application.InputBox("a ?", , , , , , , 1)
b = Application.InputBox("b ?", , , , , , , 1)
d = Application.InputBox("d ?", , , , , , , 1)
c = 1
If a = 5 Then c = c + 1
For n = 1 To d
Sheets("1").Range("K" & a & ":M" & b).Copy Sheets("1").Range("E" & b)
If Range("C" & c).Value = 5 Then
Sheets("1").Range("C" & c).Copy
Sheets("1").Range("H" & b).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks False, Transpose:=False
End If
a = a + 1
b = b + 1
Application.Wait (Now + TimeValue("00:00:01"))
Next n
End Sub