Petite question , si je veux copier coller avec ton code la cellule H2;H4;H6;H8;H10;H12;H14 comment modifer le code:"Application.WorksheetFunction.Transpose(Range("H2:H8")."
Si en vertical les cellules ne se suivent pas directement alors qu'en horizontal cela se suit, ce n'est pas possible par transpose, il faut tout détailler.
Sub copie()
Dim ligne As Long
With Sheets("Archive")
ligne = .Range("C" & .Rows.Count).End(xlUp).Row + 1
.Cells(ligne, 3)=Range("H2").Value
.Cells(ligne, 4)=Range("H4").Value
.Cells(ligne, 5)=Range("H6").Value
.Cells(ligne, 6)=Range("H8").Value
.Cells(ligne, 7)=Range("H10").Value
.Cells(ligne, 8)=Range("H12").Value
.Cells(ligne, 9)=Range("H14").Value
.Cells(ligne, 1) = IIf(ligne = 2, 1, .Cells(ligne - 1, 1) + 1)
.Cells(ligne, 2) = Now
End With
End Sub