Moteur de recherche + Fonction modifier VBA-USERFORM

Private Sub CopieTVLEC(ByVal Code As String)
   Dim TCopie()
   TCopie = TVL
   ReDim Preserve TCopie(1 To 1, 1 To 12)
   TCopie(1, 11) = Code
   TCopie(1, 12) = Now
   LOtEC.ListRows.Add.Range.Value = TCopie
   End Sub

Private Sub CopieTVLEC(ByVal Code As String)
   Dim TCopie(), C As Long
   TCopie = TVL: C = UBound(TCopie, 2)
   ReDim Preserve TCopie(1 To 1, 1 To C + 2)
   TCopie(1, C + 1) = Code
   TCopie(1, C + 2) = Now
   LOtEC.ListRows.Add.Range.Value = TCopie
   End Sub