Sub MettreDansConfirmé()
Dim I As Integer
Application.InputBox("Ligne à copier", "Sélection", , , , , , 8).EntireRow.Select
I = Selection.Row
Selection.Copy
Sheets("CONFIRMÉS").Select
Selection.Insert Shift:=xlDown
Sheets("EN COURS").Select
Range("B4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Rows(I).Select
Selection.Delete Shift:=xlUp
Range("B4").Select
End Sub