Bonjour,
à tester,
Sub Course_Suivante()
Dim rw As Long, sh As Worksheet
Set sh = Sheets("Sélection")
rw = sh.Cells(Rows.Count, 1).End(xlUp).Row + 1
sh.Cells(rw, "A") = sh.Cells(rw - 1, 1).Value + 1
sh.Cells(rw, "B") = Range("B12").Value
sh.Cells(rw, "C") = Range("C12").Value
sh.Cells(rw, "D") = "R" & Range("D12").Value
sh.Cells(rw, "E") = Range("E12").Value
sh.Cells(rw, "F") = Range("F12").Value
End Sub
ou bien j'ai mal compris et c'est le contraire qu'il faut faire ?
à voir,