[COLOR="DarkSlateGray"][B]Sub Sélect_carac()
Dim ind As Integer
Dim LaFeuille1 As Worksheet
Dim LaFeuille2 As Worksheet
Set LaFeuille1 = ThisWorkbook.Worksheets("Feuil1")
Set LaFeuille2 = ThisWorkbook.Worksheets("Feuil2")
ind = 0 [COLOR="Green"]'Facultatif[/COLOR]
While ind < 29999
LaFeuille2.Cells(1, 1).Offset(ind, 0).Value = Mid$(LaFeuille1.Cells(1, 1).Offset(ind, 0).Value, 16, 5)
ind = ind + 1
Wend
End Sub[/B][/COLOR]