Sub Eclatement()
Dim Colonne As Integer, Lignes As Integer, I As Integer
Colonne = CInt(InputBox("N° de la colonne à traiter ?", "Informations nécessaires"))
If Colonne <= 0 Then Exit Sub
Lignes = CInt(InputBox("Nombre de lignes à traiter ?", "Informations nécessaires"))
If Lignes <= 0 Then Exit Sub
For I = 1 To Lignes
Sheets("Feuil2").Cells(I, 1) = Sheets("Feuil1").Cells(I, Colonne)
Sheets("Feuil2").Cells(I, 2) = CInt(Left(CStr(Sheets("Feuil1").Cells(I, Colonne)), 1))
Sheets("Feuil2").Cells(I, 3) = CInt(Left(CStr(Sheets("Feuil1").Cells(I, Colonne)), 2))
Sheets("Feuil2").Cells(I, 4) = CInt(Left(CStr(Sheets("Feuil1").Cells(I, Colonne)), 3))
Sheets("Feuil2").Cells(I, 5) = CInt(Left(CStr(Sheets("Feuil1").Cells(I, Colonne)), 4))
Sheets("Feuil2").Cells(I, 6) = Sheets("Feuil1").Cells(I, Colonne + 1)
Next I
End Sub