bonjour Jetlager le forum tu peus faire un truc comme cela fonction en b1=STXT(CELLULE('filename';A2);TROUVE(']';CELLULE('filename';A2))+1;32) puis une macro Option Explicit
Sub Macro1()
Range('B1').Select
Selection.Copy
Columns('A:A').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range('A1').Select
End Sub salutations ' salutations