Macro ne fonctionne plus

Bonsoir à tous

J ai un soucis avec une macro qui fonctionnait très bien mais le fait d avoir ajouter un nouveau modul pour une autre fonction elle ne fonctionne plus , je comprends pas

erreur d exécution 9, l indice n appartient pas a la selection

module 1

Sub douchette()

Max = Sheets("douchette").Range("A300").End(xlUp).Row

Range("A:A").NumberFormat = "#,##0"

'On part de 2 jusqu'a la dernière ligne rensiegnée

For I = 2 To Max

Cells(I, 2).Value = Right(Cells(I, 1), 7)

'Cells(ligne,colonne)

Next I

End Sub

module 2

Sub effacement()

'Sélection des cellules A1 à B300

Range("A2:B300").ClearContents

End Sub

quelqu'un a une idée ?

Bonjour

A quel endroit as-tu l'erreur ?

Es-tu sûr d'avoir une feuille qui se nomme exactement douchette sans espace superflu ?

ok c est bon j ai supprimé cette feuill merci de ton aide