hello,
est-ce ceci que tu souhaites obtenir?
Sub Macro()
Dim i As Integer
'ajout de la colonne
Columns("B:B").Select
Selection.Insert Shift:=xlToRight
'boucle d'ajout du nom de longlet
i = 2
Do While Range("A" & i).Value <> ""
Range("B" & i).Value = ActiveSheet.Name
i = i + 1
Loop
End Sub