Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim i As Byte, j As Byte, k As Byte
Dim tablores As Variant
Dim derligne As Integer
tablo = Range('a1').CurrentRegion
For i = 1 To UBound(tablo)
tablores = Split(tablo(i, 6), '-')
With Sheets('Feuil2')
For j = 0 To UBound(tablores)
derligne = .Range('a65536').End(xlUp).Row + 1
For k = 1 To UBound(tablo, 2)
Select Case k
Case 1 To 5, 7
.Cells(derligne, k) = tablo(i, k)
Case 6
.Cells(derligne, k) = tablores(j)
End Select
Next k
Next j
End With
Next i
End Sub