Extraction données / erreur d’exécution Autofill

Bonjour,

Je réalise des extraction de données à partir d'un logiciel,
Je dois réaliser des extractions mois par mois en entrant une plage de date ( date début / date fin )
A partir d'une certaine date l'extraction ne fonctionne plus et le message d'erreur suivant s'affiche :

"Erreur d'execution '1004'

La méthode Autofill de la classe Range a échoué."

Je suis débutant sur VBA et j'utilise un fichier que je ne n'ai pas créé.

La partie qui semble poser problème est la suivante :

Public Sub LoadDataFromBPCS() 

    BPCS.Range("B7").ListObject.QueryTable.Refresh BackgroundQuery:=False 
    Dim ws As Worksheet 
    Set ws = Sheets("Exped_BPCS") 
    Dim nbLignes As Integer 
    nbLignes = ws.Range("tab_BPCS").Rows.Count 
    ws.Range(ws.Cells(7, 10), ws.Cells(7, 10)).AutoFill Destination:=ws.Range(ws.Cells(7, 10), ws.Cells(nbLignes + 7, 10)) 
    
        
    Lison.Select 
    If LoadDataReplace Then Call Analysis.GenerateAnalysis 

End Sub 

Merci d'avance pour votre aide.