Bug dans macro

Re,

J'ai un bug à la ligne 15.bien sure je n'arrive à tester les autres lignes.

Sub Val_Fic_Bene()

Dim Nom

Application.ScreenUpdating = False

'A**** recherche nom dans le tableau ****

'si n'existe pas, déclenche une erreur controlée avec le Goto Suite

On Error GoTo Suite

Nom = WorksheetFunction.Match(Range("i8"), Range("BENEVOLAT!a3:A65536"), 0) + 1

MsgBox ("Ce nom existe déjà !")

Range("I8").Activate

MsgBox ("Saisissez un nouveau Nom !")

Range("I8") = "Saisissez un nouveau Nom !"

Exit Sub

Suite:

Range("I8") = Application.Proper(Range("I8"))

Range("i8").Copy 'Ici j'ai un Bug je ne sais pas pourquoi alors que ça marche pour une autre feuille?

With Sheets("BENEVOLAT")

.Range("A65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

End With

Application.CutCopyMode = False

Range("I8").ClearContents

Range("I8") = "Entrez Nom-Prénoms"

'B**** recherche Adresse dans le tableau ****

Range("I9") = Application.Proper(Range("i9"))

Range("I9").Copy

With Sheets("BENEVOLAT")

.Range("B65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

End With

Application.CutCopyMode = False

Range("I9").ClearContents

Range("I9") = "Entrez Adresse"

'C**** recherche Tél Fixe dans le tableau ****

Range("i10") = Application.Proper(Range("i10"))

Range("i10").Copy

With Sheets("benevolat")

.Range("C65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

End With

Application.CutCopyMode = False

Range("i10").ClearContents

Range("i10") = "Entrez Téléphone Fixe"

'D**** recherche GSM dans le tableau ****

Range("i11") = Application.Proper(Range("i11"))

Range("i11").Copy

With Sheets("benevolat")

.Range("D65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

End With

Application.CutCopyMode = False

Range("i11").ClearContents

Range("i11") = "Entrez N° GSM"

'E**** recherche E-Mail dans le tableau ****

Range("i12") = Application.Proper(Range("i12"))

Range("i12").Copy

With Sheets("benevolat")

.Range("E65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

End With

Application.CutCopyMode = False

Range("i12").ClearContents

Range("i12") = "Entrez e-Mail"

'F**** recherche 1 dans le tableau ****

Range("h8") = Application.Proper(Range("h8"))

Range("h8").Copy

With Sheets("benevolat")

.Range("F65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

End With

Application.CutCopyMode = False

Range("h8").ClearContents

'G**** recherche 1 dans le tableau ****

Range("H9") = Application.Proper(Range("H9"))

Range("H9").Copy

With Sheets("benevolat")

.Range("G65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues

End With

Application.CutCopyMode = False

Range("H9").ClearContents

End Sub

Merci de me venir en aide

Amicalment

Noel

Bonjour cfn3cfn, forum,

Quelle est l'erreur retournée? Car tu dis qu'il y a un bug mais on n'en sait pas plus

Re,

Bonjour vba-new et bonne année

J'ai trouvé la solution comme un grand.

Tout simplement parce que mes cellules étaient fusionnées.

Merci

@+

Amicalement

Noel

Bonjour à tous,

Noel, j'étais prêt à te poser la question du fusionnage !

On t'a pourtant assez prévenu là-dessus.

Bonne Année

Claude.