La méthode AutoFill de la classe Range a échoué

Bonjour à tous et bonne et heureuse année.

merci à tous ceux qui prendront le temps de m'aider sur mon problème.

j'ai bien parcouru le forum sur des sujets similaires sans pouvoir encore venir à bout de mon problème

 lngLastRow = EtatLieux.Cells(Rows.Count, 36).End(xlUp).Row

                                    If lngLastRow > 4 Then
                                        With EtatLieux.range(EtatLieux.Cells(lngLastRow, 36), EtatLieux.Cells(lngLastRow, 40))
                                        .AutoFill Destination:=EtatLieux.range(EtatLieux.Cells(lngLastRow, 36), EtatLieux.Cells(lngLastRow, 40)), Type:=xlFillFormats
                                        End With
                                    End If

Le message affiché est "La méthode AutoFill de la classe Range a échoué", l'erreur se situerait donc sur la ligne

.AutoFill Destination:=EtatLieux.range(EtatLieux.Cells(lngLastRow, 36), EtatLieux.Cells(lngLastRow, 40)), Type:=xlFillFormats

Quelqu'un aurait il une solution pour moi?

Merci d'avance