copier lignes

Bonsoir
essaye ce code. il devrait te convenir

Sub demo()
ActiveCell.Range('A1:IF1').Select
Selection.Copy
ActiveCell.Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range('A1').Select
ActiveSheet.Paste
ActiveCell.Select
Application.CutCopyMode = False
End Sub
Bonne chance

Bonsoir,

Voici un code qui te permet de faire une copie de la ligne pour autant que tu clique dans une des cellules de la colonne A.

Reste à savoir maintenant où tu veux copier cette ligne car avec cette macro excel attend quelque chose.
Pour sortir de là, appuie sur ESC sur ton clavier.

A te lire

😉

bonjour Merci dan et pascal
oui dan je ne cherche qu' une ligne à rajouter à une procédure existante
grace à votre grande aide j arrive à prélever cela ...
Sub cop()
ActiveCell.range('A1:IF1').Select
Selection.Copy
''''Sheets(Feuil2).Select
range('b18').Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets('Feuil1').Select
range('A1').Select
End Sub

tout va bien si je colle sur la meme feuille,(en b18 pour cet exemple) mais je n arrive pas à aller coller en feuille 2 , ca bloque !!
auriez-vous la solution
merci d avance et tres bonne journée
E et F

oups dsl j ai trouvé...........
je mettais la macro dans la feuille 1 au lieu de la mettre dans un module

merci pour tout
E et F