Sub caractere()
Dim a, i As Integer
Dim caractere As String
Dim chaine As String
Dim nombrecelule As Integer
Sheets("Feuil3").Activate 'feuille avec la liste en colonne A
caractere = " "
Range("a1").Select
nombrecellule = Range("a65536").End(xlUp).Row 'liste des noms
For i = 0 To nombrecellule - 1
chaine = ActiveCell.Offset(i, 0)
If Mid(chaine, 1, 1) = caractere Then
ActiveCell.Offset(i, 1) = Mid(chaine, 2, Len(chaine))
Else
ActiveCell.Offset(i, 1) = ActiveCell.Offset(i, 0)
End If
Next i
End Sub