Incrémenter des formules en VBA

Bonjour à tous,

Dans une feuille de calcule j’utilise la macros suivantes pour :
- Créer des formules.
- Copier ces formules dans des cellules.
- Incrémenter ces formules jusqu’à la dernière ligne.

Sub CalculFeuil()

' Déclaration variable.
    Dim UR As String
    Dim Club As String
    Dim Adh As String
    Dim NumFihier As String
    Dim DernLigne As Integer

' Calcule dernière ligne sur la colonne AE.
    DernLigne = Range("AE" & Rows.Count).End(xlUp).Row

' Déclaration des formules des formules.
    UR = "=LEFT(RC[13],2)"
    Club = "=MID(RC[12],4,4)"
    Adh = "=RIGHT(RC[11],4)"
    NumFihier = "=CONCATENATE(RC[-3],RC[-2],RC[-1],""01"")"
            
' Copie des formules aux emplacements.
    Range("R2").Formula = UR
    Range("S2").Formula = Club
    Range("T2").Formula = Adh
    Range("U2").Formula = NumFihier
    
 ' Incrémentation des formules jusqu'à la dernirer ligne.
            Range("R2").AutoFill Destination:=Range("R3:D" & DernLigne), Type:=xlFillDefault
            Range("S2").AutoFill Destination:=Range("S3:E" & DernLigne), Type:=xlFillDefault
            Range("T2").AutoFill Destination:=Range("T3:F" & DernLigne), Type:=xlFillDefault
            Range("U2").AutoFill Destination:=Range("U3:G" & DernLigne), Type:=xlFillDefault

End Sub

Quand je déroule la macro en « pas à pas » j’ai une erreur "La méthode AutoFill de classe range à échouée".

Je sèche, pouvez m’aider ?

Merci d’avance pour votre aide
Mistral