Bonjour,
Vite fait avec l'enregistreur de macro
Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("Feuil1").Activate
Columns("C:C").Select
Selection.Copy
Sheets("Feuil2").Activate
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
Columns("A:F").Select
Columns("A:F").EntireColumn.AutoFit
Range("A1").Select
End Sub