Sub Test()
Dim Cel As Range, ch As String, i As Integer
Application.ScreenUpdating = False
With Feuil1
For Each Cel In .Range("B20:B" & Rows.Count).SpecialCells(xlCellTypeConstants)
ch = Cel.Value
For i = 1 To Len(Cel)
If Asc(Mid(Cel, i, 1)) > 64 Then
ch = Mid(Cel, i)
Cel = ch
Exit For
End If
Next
Next
End With
Application.ScreenUpdating = True
End Sub