セルから別のセルにリストをコピーする方法

Question

シートを別のブックにコピーするこの機能があります。

Public Function copierFeuilleDeA(fromWb As Workbook, fromFeuille As String, toWb As Workbook, toFeuille As String) As Boolean 

    copierFeuilleDeA = True 

    On Error GoTo errorHandler 

    fromWb.Worksheets(fromFeuille).Cells.Copy 

    toWb.Worksheets(toFeuille).Range("A1").PasteSpecial Paste:=xlPasteColumnWidths 
    toWb.Worksheets(toFeuille).Range("A1").PasteSpecial Paste:=xlPasteValues 
    toWb.Worksheets(toFeuille).Range("A1").PasteSpecial Paste:=xlPasteFormats 
    toWb.Worksheets(toFeuille).Range("A1").PasteSpecial Paste:=xlPasteFormulas 

    Application.CutCopyMode = False 
    toWb.Worksheets(toFeuille).Activate 
    toWb.Worksheets(toFeuille).Range("A1").Select 

    Exit Function 

errorHandler: 
    copierFeuilleDeA = False 
    MsgBox Err.Number & " : " & Err.Description 
End Function 

機能が素敵な、それをコピー値、フォーマット、列幅と公式に動作しますが、セルF26にあるリストをコピーしません（リストの項目は0で、1 、2,3,4,5）。

この機能をリストにコピーするにはどうすればいいですか？

ありがとうございました

Answer 1

データ検証リストも貼り付ける必要があります。

toWb.Worksheets(toFeuille).Range("A1").PasteSpecial Paste:=xlPasteValidation