Syntaxe ligne code

[LORDDD]

Bonjour au Forum,

J'ai une question, voici un code en exemple, mais j'ai toujour une erreur récurant sur la syntaxe d'une ligne

Private Sub Worksheet_activate()
Dim mois As Byte
mois = Sheets("Feuil1").Range("e5")
Sheets("commentaire").Range("d4:O4").Find(mois, LookAt:=xlWhole).Select
With Selection
.Offset(1, 0) = Sheets("Chambre").Range("b10")
.Offset(2, 0) = Sheets("Ca").Range("b10")
.Offset(3, 0) = Sheets("Pm").Range("b10")
End With
End Sub

La plus part du temps je modifie cette ligne part :
Sheets("commentaire").activate
Range("d4:O4").Find(mois, LookAt:=xlWhole).Select

Si vous avezun conseil il serait le bienvenue.
Merci à vous

 

[LORDDD]

Re : Syntaxe ligne code

Ok, merci pour ces lumières,

Donc il faut chaque fois que l'on veut des donner d'une autre feuille, et pour gagner du temps (activate & select en mangeant pas mal a ce qu'un expert m'avait dis) il faut réfléchir a transformer comme a fait Camarchepas le code en evitant les deux fonctions citée ci dessus.

Milles merci pour cette aide, et leçon...