Sub SHARE_Brut_To_COMS() '==> BOUTON "SHARE_Brut vers SHARE pour coms" dans feuille "SHARE BRUT" ==>OK
Application.ScreenUpdating = False
With Sheets("Share pour coms")
.UsedRange.Offset(1, 0).Delete
.AutoFilterMode = False
End With
With Sheets("SHARE BRUT")
' .Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
' TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
' Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
' :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
' Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
' ), Array(14, 1), Array(15, 1)), TrailingMinusNumbers:=True
.Columns("A:A").Copy Destination:=Sheets("Share pour coms").Range("A:A") 'on copie la colonne A (société)
.Columns("A:A").Copy Destination:=Sheets("Share pour coms").Range("B:B") 'on copie la colonne A (société): une deuxième fois?
.Columns("D:D").Copy Destination:=Sheets("Share pour coms").Range("C:C")
.Columns("C:C").Copy Destination:=Sheets("Share pour coms").Range("D:D")
.Columns("B:B").Copy Destination:=Sheets("Share pour coms").Range("E:E")
.Columns("I:I").Copy Destination:=Sheets("Share pour coms").Range("G:G")
.Columns("S:S").Copy Destination:=Sheets("Share pour coms").Range("H:H")
.Columns("M:M").Copy Destination:=Sheets("Share pour coms").Range("I:I")
.Cells.Clear
End With
With Sheets("Share pour coms")
formuleL = "=Concatener(C2;D2;E2)"
formuleO = "=C2"
formuleT = "=I2"
Fin = .Range("C" & .Rows.Count).End(xlUp).Row
.Range("L2").FormulaLocal = formuleL
.Range("O2").FormulaLocal = formuleO
.Range("T2").FormulaLocal = formuleT
.Range("O2:S2").FillRight
.Range("R2").Clear
.Range("L2:T" & Fin).FillDown
'on met "Quelle Session?" dans les cellules vides de la colonne D
.Range("C1:S" & Fin).AutoFilter field:=2, Criteria1:="="
.Range("D2:D" & Fin).SpecialCells(xlCellTypeVisible) = "Quelle Session?"
.AutoFilterMode = False
'on supprime les lignes dont la colonne H ne CONTIENT PAS "ECH"
.Range("C1:S" & Fin).AutoFilter field:=6, Criteria1:="<>*ECH", Operator:=xlAnd
.Range("C2:C" & Fin).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilterMode = False
'on supprime les lignes dont la colonne H commence par "LIV"
.Range("C1:S" & Fin).AutoFilter field:=6, Criteria1:="=LIV*", Operator:=xlAnd
.Range("C2:C" & Fin).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilterMode = False
.Columns.AutoFit
End With
End Sub