Bonjour Messieurs,

Je travaille actuellement sur des macros VBA pour Excel.
Toute ma macro se déroule plutot bien jusqu'à un certain point. Je dois étirer sur un nombre variable de ligne (changeant chaque jour) une formule.
Mais j'obtiens constamment une erreur de VBA : Erreur d'exécution '1004' : La méthode AutoFill de la classe Range a échoué.
Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub EDS()

Dim d As Range
Dim DernLigne As Long

Set d = ThisWorkbook.Sheets("UPR").Range("M2")
DernLigne = Range("M" & Rows.Count).End(xlUp).Row

With Sheets("UPR")
d.Formula = "=IF(ISNA(VLOOKUP(" & d.Offset(0, -1).Address(False, False) & ",Correspondance!A$1:C$26,2,""faux"")),"""",VLOOKUP(" & d.Offset(0, -1).Address(False, False) & ",Correspondance!A$1:C$26,2,""faux""))"
.Range("M2").AutoFill Destination:=.Range("M2:M" & DernLigne)
End With


End Sub
J'ai effectué beaucoup de recherche ces derniers jours sans jamais trouver la solution.

Pourriez vous m'indiquer où se situe mon erreur s'il vous plait ?

Merci pour votre aide et votre retour.

Cordialement,