Remplir entete toutes les feuilles sauf une

[Christophe]

Bonjour le forum,
Alors pas trop dur le lundi??
Bon malgré ce debut de semaine je me suis lancé dans un bout de code simple mais qui deja me depasse, je vous explique. Dans un classeur, je remplis les en tete via une user form et qui marche trés bien. L'amelioration que j'aimerais apporter est qu'une des feuille s'appelant DACC ne doit pas etre renseigné et je ni arrive pas, voila ce que je fais :

For Each wks In Worksheets
If Workbook.Sheets.Name = "DACC" Then
Else

wks.Range("B2") = nomcli
wks.Range("A5") = Datesaisie
wks.Range("C5") = Redacteur
wks.Range("I5") = exercice
End If
Next wks

Voila Merci a tous.

 

[CHti160]

Salut"Christophe"
celà devrait correspondre à ce que tu cherches

For Each wks In Worksheets
If wks.Name <> "DACC" Then
wks.Range("B2") = nomcli
wks.Range("A5") = Datesaisie
wks.Range("C5") = Redacteur
wks.Range("I5") = exercice
End If
Next
A+++
Jean Marie

 

[Christophe]

Merci Jean Marie c'est parfait bonne journée.