VBA:PB Methode Autofill

Bonjour,

J'ai un problème, quand je recopie une formule avec la méthode Autofil
ma formule s'inscrit en A2 par contre elle ne s'etend pas. j'ai un message d erreur concernant la méthode Autofill.

voici le code:

Sub Badge1()
Dim wbkSource As Workbook
Dim wshSource As Worksheet
Dim wshCible As Worksheet

Set wshCible = Worksheets("BD sem1")
wshCible.Cells.Delete

'Titre Colonne
wshCible.Range("A1") = "SITE"
wshCible.Range("B1") = "Date du contrôle"
wshCible.Range("C1") = "Heure du contrôle"
wshCible.Range("D1") = "Initiales"
wshCible.Range("E1") = "Type de Personnel"
wshCible.Range("F1") = "Numéro du badge"
wshCible.Range("G1") = "Description du lecteur"



'Mise en forme
wshCible.Range("A1:G1").Interior.Color = 13434879
wshCible.Range("A1:G1").Font.Bold = True



'Classeur Base de donnees
DebutNomFichier = wshCible.UsedRange.Rows.Count + 2
Set wbkSource = Workbooks.Open("G:\travail\badgearcx12.XLSX")
Set wshSource = wbkSource.Worksheets(1)
Dim a As Filter
'Nom de feuille a adapter
Set ID = Worksheets(1)
If ID.AutoFilterMode Then
Indice = 0
For Each a In ID.AutoFilter.Filters
If a.On Then
ID.ShowAllData
Exit For
End If
Next
End If
DerniereLigne = wshSource.UsedRange.Rows.Count
wshSource.Range("U1:Z" & DerniereLigne).Copy wshCible.Range("B" & wshCible.UsedRange.Rows.Count + 1)
wbkSource.Close
Sheets("BD sem1").Activate
ActiveSheet.Cells(2, 1).FormulaLocal = "=SI(NB.SI(Liste;G2);RECHERCHEV(G2;Liste;2);"""")"

Selection.AutoFill Destination:=Range("A2:A65000"), Type:=xlFillDefault
Range("A2:A65000").Select
Selection.Copy
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
ActiveWorkbook.RefreshAll

End Sub

Cdt

Charlyjack