Modifier un code

[maval]

Bonjour,

J'ai un code qui fonctionne bien mais j'aimerai lui apporte une modification.
Voici mon code:
Sub inser_TR()
n = 1
ligne = 5

t2 = "</tr> <tr>"
For m = 5 To Range("H1") * 12 Step 12
t1 = "</tr><tr> <!--" & n & " -->"
Range("d" & m) = t1
Range("d" & m + 6) = t2
n = n + 1
Next
End Sub

Sub inser_TR()
n = 1
ligne = 5

t2 = "</tr> <tr>"
For m = 5 To Range("H1") * 12 Step 12
t1 = "</tr><tr> <!--" & n & " -->"
  Range("d" & m) = t1
  Range("d" & m + 6) = t2
  n = n + 1
Next
End Sub

J'aimerai que sur la première ligne il mette que <tr> au lieu de </tr> <tr>
et à la dernière ligne qu'il ajoute </tr> en sachant qu'il peut avoir 1500 lignes.

Je vous remercie d'avance

Cordialement

max

 

[vgendron]

Post en doublon
voir ici
https://www.excel-downloads.com/threads/modifier-un-code.20019344/