recopie d'une plage de la ligne active

Salut,

Si tu fais Outils/Macro/Nouvelle Macro...
tu lances l'enregistreur de macro qui te donneras le code suivant :

Sub Macro1()
Range("C4:L4").Select
Selection.Copy
Range("C5").Select
ActiveSheet.Paste
Range("B5").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "4"
End Sub

Ensuite, pour le transposer à la ligne active, quelques modifications sont possibles, avec l'objet "ActiveCell" :

Sub Macro1()
Dim Ligne As Long
Ligne = ActiveCell.Row
Range("C" & CStr(Ligne) & ":L" & CStr(Ligne)).Select
Selection.Copy
Range("C" & CStr(Ligne + 1)).Select
ActiveSheet.Paste
Range("B" & CStr(Ligne + 1)).Select
Application.CutCopyMode = False
ActiveCell.Value = "Ce que tu veux"
End Sub

NB : "Ligne" est une donnée numérique
Cstr est une fonction de conversion d'un nombre en texte.

A+
LN

Merci beaucoup Amiral !

Bonne journée.

Olivier