Microsoft 365 erreur d'execussion 6 - depassement de capacite

[CARO13]

Bonjour

j'utilise une macro qui me permet de copier des nouvelles données dans une base depuis qques années.

Depuis aujourd'hui j'ai un message d'erreur "dépassement de Capacité" que je n'arrive pas à corriger

Pourriez vous m'aider à corriger ?

Merci d'avance

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
Set S = Worksheets("SOMMAIRE") 'définit l'onglet S
Set BA = Worksheets("BASE AS") 'définit l'onglet BA
Set NA = Worksheets("NEW AS") 'définit l'onglet NA
Set NS7 = Worksheets("NEW S7") 'définit l'onglet NS7
If BA.FilterMode = True Then BA.ShowAllData 'supprime les filtre de l'onglet BA
DL = BA.Cells(Application.Rows.Count, "B").End(xlUp).Row 'definit la dernière ligne éditée DL de la colonne B de l'onglet BA
Set PL = NS7.Range("A1").CurrentRegion 'définit la plage PL
Set PL = PL.Offset(1, 0).Resize(PL.Rows.Count - 1, PL.Columns.Count) 'redéfinit la plage PL sans la première ligne
Set DEST = BA.Cells(DL + 1, "B") 'définit la cellule de destination DEST

 

[job75]

Bonsoir CARO13,

Vous avez peut-être déclaré la variable DL As Integer alors que sa valeur dépasse 32767.

Déclarez-la As Long.

A+

 

[CARO13]

Bonsoir CARO13,

Vous avez peut-être déclaré la variable DL As Integer alors que sa valeur dépasse 32767.

Déclarez-la As Long.

A+

C'est exactement ca !!! merci beaucoup ... j'aurai pas du attendre autant de temps avant de poser la question j'aurai perdu moins de temps
Merci et bonne soirée !