数据验证允许数字和一些字符串？

Question

我想在BFF！范围内进行数据验证（＆＃34; A3：A40＆＃34;）。我想只允许0到24之间的数字，同时允许字符串列表＆＃34; A＆＃34; ，＆＃34; B＆＃34;，＆＃34; C＆＃34;，＆＃34; D＆＃34;。该列表出现在Liste！范围内（＆＃34; C2：C100＆＃34;）。

这是第一部分的代码（字符串列表），但我不知道如何添加第二部分（0到24之间的数字）。

Sub Data_Validation_Nom()

'change Sheet1 to suit
Set wsListe = ThisWorkbook.Worksheets("Liste")
Set wsBFF = ThisWorkbook.Worksheets("BFF")

Set range1 = wsListe.Range("C2:C100")
Set rng = wsBFF.Range("A3:A40")

With rng.Validation
    .Delete 'delete previous validation
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
        Formula1:="='" & wsListe.Name & "'!" & range1.Address

End With

End Sub

有人可以帮助我吗