Bonjour
Essayez ce code
Sub ajout()
Dim feuille As String
Dim i As Integer, dlg As Integer
feuille = Range("D9")
With Sheets(feuille)
dlg = .Range("A" & .Rows.Count).End(xlUp).Row + 1
Range("D7:D8").Copy
.Range("A" & dlg).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Range("D10:D19").Copy
.Range("C" & dlg).PasteSpecial Paste:=xlPasteAll, Transpose:=True
End With
Application.CutCopyMode = False
End Sub
code à associer à votre bouton AJOUT sur la feuille ajout
Le code ne contrôle pas le doublon qui à mon avis est normal sachant qu'un élève pourrait avoir cours sur deux instruments différents
Si ok et terminé, merci de cloturer le fil en cliquant sur la case à cocher verte à coté du bouton EDITER
Cordialement