Conversion Et/ou Remplacement

Bonjour

Je suis debutant en VBA, et j'aurais une problematique à vous soumettre.
Dans un tableau excel, je recuperes une liste de N° correspondant à des bandes de sauvegarde. Cette liste est au format suivant:
AB
1N° des Bandes N° des Bandes Modifiées
2[000076] 000076L1
3[000078] 000078L1
4[000080] 000080L1
5[000098] 000098L1
6[000245] 000245L1
7[000248] 000248L1

Je souhaiterais supprimer les [] et rajouter la mention L1 pour chaque N° de bandes. De plus le nombre de bandes est variable et peux être > 100.
J'ai essaye l'option REMPLACER et CONVERTIR d'excel, mais sans succès.

:D

Code:

---

1 2 3 4 5 6 7 8 9

For i = 1 To UsedRange.Rows.Count If Left(Trim(Cells(i, 1)), 1) = "[" And Right(Trim(Cells(i, 1)), 1) = "]" Then temp = Trim(Cells(i, 1)) temp = Replace(temp, "[", "", , , vbTextCompare) temp = Replace(temp, "]", "", , , vbTextCompare) temp = temp & "L1" Cells(i, 1).Offset(0, 1) = temp End If Next i

---

ou

Code:

---

1 2 3 4 5

For i = 1 To UsedRange.Rows.Count If Left(Trim(Cells(i, 1)), 1) = "[" And Right(Trim(Cells(i, 1)), 1) = "]" Then Cells(i, 1).Offset(0, 1) = Mid(Trim(Cells(i, 1)), 2, Len(Trim(Cells(i, 1))) - 2) & "L1" End If Next i

---