Erreur 1004

Bah justement je ne sais pas... Je n'ai pas de colonne qui s'appelle "ROW", est ce que je doit mettre le nom de mes colonnes??

Public Row As Integer

Dim No_zs As Integer
Dim Cat_lm As String
Dim Marq_lm As String
Dim Util_lm As String
Dim Acha_lm As String
Dim Contrat_lm As String
Dim Typecontrat_lm As String
Dim Soc_lm As String
Dim Site_lm As String
Dim Pays_lm As String
Dim Prop_lm As String
Dim Locct_lm As String
Dim Loclt_lm As String

Dim Mod_zs As String
Dim Unit_zs As String
Dim Annee_zs As String
Dim Echeancelt_zs As String
Dim Duree_zs As String
Dim Contactsite_zs As String

Sub Rechercher()

Sheets("SAISIEX").Activate
Range("A1").Select
Row = 20
While ActiveSheet.Cells(Row, 1).Value <> ""
ActiveSheet.Cells(Row, 1).Select
Row = Row + 1
Wend
ActiveSheet.Cells(Row, 1).Select


End Sub

Sub Lire()


Soc_lm = SAISIEX.lm_soc.Value
Site_lm = SAISIEX.lm_site.Value
Pays_lm = SAISIEX.lm_pays.Value
Contactsite_zs = SAISIEX.zs_contactsite.Value

End Sub

Sub Ecrire()


Cells(Row, 1) = Soc_lm
Cells(Row, 2) = Site_lm
Cells(Row, 3) = Contactsite_zs
Cells(Row, 4) = Pays_lm

End Sub

Sub Nouveau()

Effacer




End Sub

Sub Effacer()

SAISIEX.zs_contactsite = ""


End Sub
Sub Rechercher2()

Sheets("SAISIE2").Activate
Range("A1").Select
Row = 8
While ActiveSheet.Cells(Row, 1).Value <> ""
ActiveSheet.Cells(Row, 1).Select
Row = Row + 1
Wend
ActiveSheet.Cells(Row, 1).Select

End Sub

Sub Lire2()

No_zs = SAiSIEX2.zs_no.Value

Cat_lm = SAiSIEX2.lm_cat.Value
Marq_lm = SAiSIEX2.lm_marq.Value
Mod_zs = SAiSIEX2.zs_mod.Value
Prop_lm = SAiSIEX2.lm_prop.Value
Unit_zs = SAiSIEX2.zs_unit.Value
Util_lm = SAiSIEX2.lm_util.Value
Acha_lm = SAiSIEX2.lm_acha.Value

Annee_zs = SAiSIEX2.zs_annee.Value
Locct_lm = SAiSIEX2.lm_locct.Value
Loclt_lm = SAiSIEX2.lm_loclt.Value
Echeancelt_zs = SAiSIEX2.zs_echeancelt.Value
Contrat_lm = SAiSIEX2.lm_contrat.Value
Typecontrat_lm = SAiSIEX2.lm_typecontrat.Value
Duree_zs = SAiSIEX2.zs_duree.Value

End Sub

Sub Ecrire2()

Cells(Row, 1) = No_zs
Cells(Row, 2) = Cat_lm
Cells(Row, 3) = Marq_lm
Cells(Row, 4) = Mod_zs
Cells(Row, 5) = Prop_lm
Cells(Row, 6) = Unit_zs
Cells(Row, 7) = Util_lm
Cells(Row, 8) = Acha_lm
Cells(Row, 9) = Annee_zs
Cells(Row, 10) = Locct_lm
Cells(Row, 11) = Loclt_lm
Cells(Row, 12) = Echeancelt_zs
Cells(Row, 13) = Contrat_lm
Cells(Row, 14) = Typecontrat_lm
Cells(Row, 15) = Duree_zs


End Sub

Sub Nouveau2()

Effacer2
Row = Row + 1

SAiSIEX2.zs_no = Row - 7



End Sub

Sub Effacer2()


SAiSIEX2.lm_cat = ""
SAiSIEX2.lm_marq = ""
SAiSIEX2.lm_prop = ""
SAiSIEX2.lm_util = ""
SAiSIEX2.lm_acha = ""
SAiSIEX2.lm_locct = ""
SAiSIEX2.lm_loclt = ""
SAiSIEX2.lm_contrat = ""
SAiSIEX2.lm_typecontrat = ""

SAiSIEX2.zs_mod = ""
SAiSIEX2.zs_unit = ""
SAiSIEX2.zs_annee = ""
SAiSIEX2.zs_echeancelt = ""
SAiSIEX2.zs_duree = ""


End Sub


Voilà ce que j'ai sur ma page.... Honnetement je suis complètement perdue...
Je ne vois même pas ce que j'ai codé toute à l'heure.. Je suis désolé si je ne peux pas vous donner plus d'informations, je suis complètement perdue