Prop non gérée par cet objet, affectation valeur cell

Bonjour à tous,

comme le sujet l'indique, j'ai un message d'erreur du type 438 qui me dit que la méthode est non gérée par cet objet au moment où j'essaye d'affecter une valeur à une cellule. Le code est le suivant:

Sub InsertionFeuille()
Dim NewSheetName As String
Dim Nb As Integer

NewSheetName = InputBox("Saisir le numéro de la nouvelle feuille insérée: ")

Nb = CopierColler(NewSheetName)
End Sub

Function CopierColler(NomFeuille As String)
Dim cel As Range
Dim i As Long
Dim OldSheetName As String

Set cel = ActiveWorkbook.Worksheets(CStr(NomFeuille)).Rows(1).Find("dernier mois :", , xlValues, xlWhole)
i = 5

    If Not cel Is Nothing Then
        cel.Offset(0, 1).Cut (ActiveWorkbook.Worksheets(NomFeuille).Range("I3"))
    End If

    Do While ActiveWorkbook.Worksheets(NomFeuille).Range("B" & i) <> ""
        ActiveWorkbook.Worksheets(NomFeuille).Range("A" & i).Values = ActiveWorkbook.Worksheets(NomFeuille).Range("M" & i).Text
        i = i + 1
    Loop

OldSheetName = InputBox("Saisir le numéro de la feuille précédente: ")

ActiveWorkbook.Worksheets("OldSheetName").Range("A1:EY1").Copy
ActiveWorkbook.Feuille.Range("A1").PasteSpecial

ActiveWorkbook.Worksheets("OldSheetName").Range("EZ1:FZ450").Copy
ActiveWorkbook.Feuille.Range("EZ1").PasteSpecial

CopierColler = 1

End Function

La ligne surlignée est celle qui me pose problème. J'ai tenté plusieurs écritures mais sans succès. Quelqu'un aurait-il une suggestion à me faire ?

Merci !

SkillzZ

Bonjour SkillzZ, bonjour le forum,

Essaie sans le s à la fin de Values = Value...

Merci ThauThème.. Avoir cherché 1h pour ça

Merci !