XL 2016 Erreur 438, incompréhension totale

[S[1]t'Yor]

Bonjours à tous et à toutes

Dans mon programme VBA de l'excel en PJ, tout marche a peu prés comme je veux, cependant a la ligne 70 dans l'objet ThisWorkbook j'obtiens une erreur 438. je ne comprend pas a quoi elle est due. Si quelqu'un peut jeter un petit coup d’œil et m'aiguiller sur le pourquoi du comment avec une piste si possible.

Merci d'avance

S[1]t'Yor

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @S[1]t'Yor

Et si tu joignais ton fichier et que tu précisais la ligne où ce produit le bug ?

Amicalement
Alain

 

[S[1]t'Yor]

Bonjour Alain

J'avais joint le fichier mais le revoici. C'est a la ligne 70

CDT

S[1]t'Yor

 

[sylvanu]

Bonjour,
Sans tout éplucher, juste une piste :
AdressDelivery vaut 13 ( G13 )
FinDonnees vaut -9 car Cells(Rows.Count, 1).End(xlUp).Row vaut 4 ( seuls A1:A4 sont renseignés )
Donc vous avez déjà un souci en ligne 68 :

For k = 1 To FinDonnees

car cela fait For k = 1 To -9