Sub SAISIEAUTOTABLEAU()
Dim Tablo, dl As Long
Tablo = Range("C11:C16").Value
With Sheets("Plandaction")
dl = .Range("A60000").End(xlUp).Row + 1
.Range(.Cells(dl, 1), .Cells(dl, UBound(Tablo))) = Application.Transpose(Tablo)
End With
Range("C11:C16").ClearContents
End Sub