Boucle pour Création de chaînes de caractères

Bonjour le forum

Je voudrais par le biais d'une macro créer dans la colonne "B"

une chaîne de caractères reprenant les données contenues

en colonne "A" en y appliquant une numérotation "1-ART_", "2-ART_"…)

Je ne sais pas comment m'y prendre pour appliquer un système de numérotation

en boucle

Ces chaines de caractères vont devenir le nom de dossier

qui vont être créer par la macro contenue dans dans le module 1

Je place un fichier en pièce jointe

et par avance, je vous remercie pour votre aide et votre disponibilité

Bonjour,

Un exemple pour la numérotation.

Cdlt.

Public Sub Macro1()
Dim n As Long, I As Long
    Application.ScreenUpdating = False
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For I = 1 To n
            .Cells(I, 2).Value = I & "-ART_" & .Cells(I, 1)
        Next I
    End With
End Sub

Bonsoir Jean-Eric

Merci pour ton aide et ta disponibilité

C'est super c'est exactement ce dont j'avais besoin

Merci beaucoup