XL 2016 probleme VBA

Bonjour,
Je suis artisan et je viens de trouver un fichier excel tres pratique et "gratuit" que j'essai d'adapter a mon activité.
malheureusement il semblerait qu'il y ai un "bug" dans la programmation et je n'ai pas les compétences suffisante pour trouver la solution.
Si qq'un peu m'aider j'en serais reconnaissant.
Voici le code erreur

et voici le code incriminé :
Private Sub UserForm_Activate()
lign = 1: ligne.Value = 1
nbart = Feuil11.Range("K1")
four = Replace(Feuil2.Cells(fact, 31), ",", ".")
If four = "" Then four = Feuil11.Cells(2, 1)
If tva.ListIndex = -1 Then tva = Feuil11.Cells(14, 2)
mo = Feuil2.Cells(fact, 30)
If mo = "" Then mo = Feuil11.Cells(1, 1)
List3.Clear
remplir
ajour
tar.ListIndex = Feuil2.Cells(fact, 26)
If nouvo = True Then tar.ListIndex = Feuil11.Cells(3, 1)
calcul
UserForm1.List3.ListIndex = 0: lign = 1
End Sub

Merci d'avance