VBA excel: Erreur 424, objet requis

Bonjour,

Je cherche à remplir une feuille d'excel avec les données que rentre l'utilisateur, c'est à dire qu'il y a trois Zone de texte (nom, adresse et ville) et à chaque "client", je rajout un numéro. Mais une erreur apparaît à chaque fois.
L'erreur me dit: Erreur 424, objet requis


Voila mon code:



Private Sub enegistrerclient_Click()

Worksheets("Acheteur").Activate

'Donne le numéro au client (c'est la que l'erreur apparaît à chaque fois)

plage.Cells(i, j) = i - 1
j = j + 1

'Met le texte de "nom" dans la cellule (i,j)

plage.Cells(i, j).Value = nom.Text
j = j + 1

plage.Cells(i, j).Value = adresse.Text
j = j + 1

plage.Cells(i, j).Value = ville.Text
j = 1

'redonne la valeur 1 à j, j étant le numéro de collone dans le tableur excel

numach.Caption = i - 1 'fait apparaître le numéro du client dans

End Sub

-------------------------------------------------------------------------------------------------------------------

Private Sub UserForm_Initialize()

Dim i, j As Integer
Dim plage As Range

Set plage = Range("A1:D351") 'plage dans laquelle devra être écrit les données rentrés

i = 2
j = 1


End Sub





merci d'avance pour votre aide

Inarius