Etendre formule VBA

Bonjour, je cherche à etendre la formule d'une colonne qui dans une feuille qui se met souvent à jour

voici mon code qui est en erreur autofill de la class range

Sub form()

Dim DernLigne As Long
DernLigne = Worksheets("ZP90").Range("A" & Rows.Count).End(xlUp).Row

'Selection de la feuille Sortie
Worksheets("ZP90").Select

'n° de la première cellule de date
Range("N2").Select

'Formule
ActiveCell.FormulaR1C1 = _
"=IFERROR(REPLACE(RC[-1],SEARCH(""."",RC[-1]),1,""""),RC[-1])"
Range("N2").Select

'Etendre la formule jusqu'à la dernière ligne

Range("N2").AutoFill Destination:=Range("N3:N" & DernLigne)

End Sub

Bonjour,

Range("N2").AutoFill Destination:=Range("N2:N" & DernLigne)

Sinon :

Sub form()

Dim DernLigne As Long
Dim ShZp90 As Worksheet

    Set ShZp90 = Sheets("ZP90")

    With ShZp90
         DernLigne = .Range("A" & .Rows.Count).End(xlUp).Row
         With .Range("N2")
              .FormulaR1C1 = "=IFERROR(REPLACE(RC[-1],SEARCH(""."",RC[-1]),1,""""),RC[-1])"
              .AutoFill Destination:=ShZp90.Range("N2:N" & DernLigne)
         End With
    End With
    Set ShZp90 = Nothing

End Sub