XL 2021 Supprimer tous les chiffres et le premier espace sur chaque cellule

[eCHO]

Bonjour, j'ai ce code VBA pour supprimer tous les chiffres et le premier espace sur chaque cellule. Le code fonctionne parfaitement pour la suppression des chiffres, mais il ne fonctionne pas pour l'espace entre les lettres et les chiffres.
ma situation :

le résultat vous:​

Si vous avez une autre méthode, car le code prend beaucoup de temps pour traiter toutes les lignes de chansons que j'ai, soit plus de 6000 lignes.
Merci.

 

[Cousinhub]

Bonjour,
Sans macro, mais avec Power Query, en natif dans ta version Excel
J'ai transformé ta plage de données (A1:Axx) en Tableau structuré (TS) nommé "Tableau1"
Clic droit dans la requête (colonne E), "Actualiser" pour mettre à jour
Bonne apm

 

[sylvanu]

Bonjour Echo,
Un essai en PJ avec :

Sub SupprimerChiffresEtEspace()
    Dim T, i%
    T = ActiveSheet.Range("A1:A" & [A100000].End(xlUp).Row)
    For i = 1 To UBound(T)
        On Error Resume Next
        T(i, 1) = Split(T(i, 1), Chr(10))(1)
    Next i
    [A1].Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub

 

[eCHO]

Bonjour Echo,
Un essai en PJ avec :

Sub SupprimerChiffresEtEspace()
    Dim T, i%
    T = ActiveSheet.Range("A1:A" & [A100000].End(xlUp).Row)
    For i = 1 To UBound(T)
        On Error Resume Next
        T(i, 1) = Split(T(i, 1), Chr(10))(1)
    Next i
    [A1].Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub

Merci