Copie de cellule vertical en horizontal via macro

Question

Je suis nouveau dans l'univers macro d'excel, j'essais de faire des choses seul mais la je coince un petit peu. Alors pour commencer, j'ai une suite de chiffre (1, 2, 3, 4, 5, 6) de J1 à J6. J'aimerais que cette suite de chiffre se copie de A1 à A6. Jusque la tout va bien j'ai fait la macro ci-dessous avec un bouton pour automatiser, mais je pense qu'on peut faire plus court. Private Sub Copier_Click() Range("J1").Select Selection.Copy Range("A1").Select ActiveSheet.Paste Range("J2").Select Application.CutCopyMode = False Selection.Copy Range("B1").Select ActiveSheet.Paste Range("J3").Select Application.CutCopyMode = False Selection.Copy Range("C1").Select ActiveSheet.Paste Range("J4").Select Application.CutCopyMode = False Selection.Copy Range("D1").Select ActiveSheet.Paste Range("J5").Select Application.CutCopyMode = False Selection.Copy Range("E1").Select ActiveSheet.Paste Range("J6").Select Application.CutCopyMode = False Selection.Copy Range("F1").Select ActiveSheet.Paste Range("J1").Select Application.CutCopyMode = False End Sub La suite de chiffres en colonne J va évoluer au cours du temps, je veux toujours copier cette suite mais cette fois ci dans la ligne B et ainsi de suite. Je n'arrive pas à trouver la fonction qui peut traduire "Tant que la ligne est pleine, tu continues et quand tu trouves une ligne vide, tu copies la colonne J. Je sais pas si j'ai été claire dans mes explications je vous met ci-joint mon fichier. Merci encore de m'accorder un peu de votre temps. Bien à vous, Yoann...

curulis57 · Accepted Answer

Salut yoyo-du67,

quelque peu plus court et plus efficace, certes...

Private Sub Copier_Click()
'
iRow = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & IIf(Range("A1").Value = "", iRow, iRow + 1)).Resize(1, 6).Value = WorksheetFunction.Transpose(Range("J1:J6"))
'
End Sub

A+