Sub toto_quatre()
Application.ScreenUpdating = False
With Range("A7", Range("A" & Rows.Count).End(xlUp))
.Offset(, 6).Resize(, Columns.Count - 6).ClearContents 'RAZ
.Copy .Offset(, 6)
.Offset(, 6).TextToColumns .Offset(, 6), xlDelimited, Other:=True, OtherChar:="-" 'commande Convertir
End With
End Sub