Public zone
Sub test()
Sheets("Xls").Copy After:=Sheets(1)
derl = Range("A65536").End(xlUp).Row
Range("A2:A" & derl).Select
zone = Selection.Address
For Each cell In Selection
n = 0
For i = 1 To Len(cell)
If Mid(cell, i, 1) = "," Then n = n + 1
Next
cell.Offset(0, 1) = n
Next
For Each cell In Selection
cell.Select
If cell.Offset(0, 1) = 3 Then GoTo suite
If cell.Offset(0, 1) = 2 Then GoTo suite Else Concatene
suite:
Next
Supprime_Lignes
MEF
End Sub
Sub Concatene()
'Stop
a = ActiveCell: b = ActiveCell.Offset(1, 0)
c = a & " " & b
ActiveCell = c
ActiveCell.Offset(1, 1) = 3
End Sub
Sub Supprime_Lignes()
Range(zone).Select
For Each cell In Selection
cell.Select
If cell.Offset(0, 1) = 3 Then Rows(cell.Row & ":" & cell.Row).Delete Shift:=xlUp
Next
End Sub
Sub MEF()
Columns("B:B").Select
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=True, FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
Cells.Select
Cells.EntireColumn.AutoFit
Range("A1").Select
End Sub