Erreur code vba sur les tableaux

[sevy1]

Bonjour
J'ai un fichier dans lequel je voudrais faire apparaitre les calculs après le clic d'un bouton j'ai adapté un code vba sur les tableaux mais j'ai un message d'erreur incompatibilité de type
Pouvez vous m'aider

Private Sub CommandButton1_Click()
Dim Ws As Worksheet, Te(), Ts(), L&
 Set Ws = Worksheets("Feuil2")
 
 Te = Ws.[A2].Resize(Ws.[A20000].End(xlUp) - 1, 21).Value
 ReDim Ts(1 To UBound(Te, 1), 1 To 3)
 For L = 1 To UBound(Te, 1)
    If IsDate(Te(L, 21)) Then 'And IsDate(Te(L, 2)) Then
       Ts(L, 1) = Year(Te(L, 21))
Ts(L, 2) = Te(L, 21) - Te(L, 20)
          Ts(L, 3) = Month(Te(L, 21)): End If: Next L
       
 Ws.[V2].Resize(UBound(Ts, 1), UBound(Ts, 2)).Value2 = Ts
End Sub

Merci d'avance

 

[gilbert_RGI]

Re : Erreur code vba sur les tableaux

bonjour

il manque row dans cette ligne

Te = Ws.[A2].Resize(Ws.[A20000].End(xlUp).Row - 1, 21).Value

 

[sevy1]

Re : Erreur code vba sur les tableaux

Mille merci ça marche
Comment cocher RESOLU