Erreur 424 - Objet requis

Bonjour à tous,
Je m'appelle Alain et travaille dans une société privée liée au domaine de la Finance.
Je programme avec VBA depuis quelques temps en ayant appris surtout grâce à Google...

J'ai un code ci-dessous que j'utilise depuis des années pour des saisies dans un Userform et validation de celles-ci sur un autre onglet, me permettant par la suite d'automatiser un reporting.

Je suis convaincu que le codage peut être raccourci mais il fonctionne bien donc je le garde ;)

Or, depuis peu, j'ai un message d'erreur de type "Erreur 424 - Objet Requis"...et je ne comprends pas..

Voici le code :

Private Sub Validation_Saisie ()

Dim EntreePlus As Worksheet, AA As Range, Erg, i As Integer, BB As Range, CC As Range, DD As Range, EE As Range, FF As Range, GG As Range, HH As Range, II As Range, JJ As Range, KK As Range, LL As Range, MM As Range, NN As Range, OO As Range, PP As Range, QQ As Range

Set EntreePlus = ThisWorkbook.Worksheets("base")

Application.ScreenUpdating = True


Set AA = EntreePlus.Cells(16384, 1).End(xlUp).Offset(1, 0)
Set BB = EntreePlus.Cells(16384, 2).End(xlUp).Offset(1, 0) '
Set CC = EntreePlus.Cells(16384, 3).End(xlUp).Offset(1, 0) '
Set DD = EntreePlus.Cells(16384, 4).End(xlUp).Offset(1, 0) '
Set EE = EntreePlus.Cells(16384, 5).End(xlUp).Offset(1, 0) '
Set FF = EntreePlus.Cells(16384, 6).End(xlUp).Offset(1, 0) '
Set GG = EntreePlus.Cells(16384, 7).End(xlUp).Offset(1, 0) '
Set HH = EntreePlus.Cells(16384, 8).End(xlUp).Offset(1, 0) '
Set II = EntreePlus.Cells(16384, 9).End(xlUp).Offset(1, 0) '
Set JJ = EntreePlus.Cells(16384, 10).End(xlUp).Offset(1, 0) '
Set KK = EntreePlus.Cells(16384, 11).End(xlUp).Offset(1, 0) '
Set LL = EntreePlus.Cells(16384, 12).End(xlUp).Offset(1, 0) '
Set MM = EntreePlus.Cells(16384, 13).End(xlUp).Offset(1, 0) '
Set NN = EntreePlus.Cells(16384, 14).End(xlUp).Offset(1, 0) '
Set OO = EntreePlus.Cells(16384, 15).End(xlUp).Offset(1, 0) '
Set PP = EntreePlus.Cells(16384, 16).End(xlUp).Offset(1, 0) '
Set QQ = EntreePlus.Cells(16384, 17).End(xlUp).Offset(1, 0) '

AA.Offset(0, i).Value = Saisie.TextBox49.Text
BB.Offset(0, i).Value = Saisie.ComboBox1.Value
CC.Offset(0, i).Value = Saisie.ComboBox2.Value
DD.Offset(0, i).Value = Saisie.TextBox4.Text
EE.Offset(0, i).Value = Saisie.ComboBox9.Text
FF.Offset(0, i).Value = Saisie.TextBox6.Text
GG.Offset(0, i).Value = Saisie.ComboBox10.Text
HH.Offset(0, i).Value = Saisie.ComboBox3.Value
II.Offset(0, i).Value = Saisie.TextBox37.Text
JJ.Offset(0, i).Value = Saisie.TextBox38.Text
KK.Offset(0, i).Value = Saisie.TextBox39.Text
LL.Offset(0, i).Value = Saisie.ComboBox4.Value
MM.Offset(0, i).Value = Saisie.ComboBox5.Value
NN.Offset(0, i).Value = Saisie.ComboBox6.Value
OO.Offset(0, i).Value = Saisie.ComboBox7.Value
PP.Offset(0, i).Value = Saisie.ComboBox8.Value
QQ.Offset(0, i).Value = Saisie.TextBox48.Value

Application.ScreenUpdating = True

MsgBox "Les données ont été enregistrées avec succés"


End Sub


Merci beaucoup pour votre aide

Alain