VBA (résolu)_macro qui doublonne Ligne 1 (si recopie module ou privatesub nom wks)

[zebanx]

Bonjour,

Ci-joint deux fichiers construits à partir du même fichier (851b) mais dont le deuxième incorpore une PRIVATE SUB sur la WKS1 permettant d'afficher dans l'onglet le nom du WORKBOOK.

Le lancement de la macro "RECAP" donne un résultat différent avec l'insertion d'une ligne en plus dans le deuxième cas. Cette modification automatique du nom de la WKS1 m'est pourtant utile et j'aimerais donc bien la conserver.
Pourriez-vous m'expliquer pourquoi svp ?

En outre, y a-t-il svp un moyen de modifier le nom de l'onglet 1 (à partir d'une cellule qui reprendrait le nom du workbook) sans VBA ?

Merci pour votre aide, cdlt
thierry

ie : Ce cas se produit également quand je crée un nouveau fichier et que je duplique les modules.

 

[zebanx]

Après retour sur le fichier, c'était une partie du code UCASE qui posait problème

or i = 1 To Worksheets.Count
If Sheets(i).Name <> Sheets(SH1).Name Then
dlgR = Sheets(SH1).Range("a" & Rows.Count).End(xlUp).Row

Problème résolu (le pas à pas détaillé ^^)