J'ai une feuille de "saisie de données" cellules C6 à C14.
Je souhaite que la macro trouve la dernière ligne vide sur une autre feuille "données"et y copie les cellules en les transposant sur une ligne.
Sub Copie_Transpose()
With Worksheets("feuil2")
PCV = .Range("A" & Rows.Count).End(xlUp).Row + 1 'premiere cellule vide
.Range("A" & PCV).Resize(, 9) = Application.Transpose(Worksheets("feuil1").Range("C6:C14"))
End With
End Sub
