Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim x As Integer 'déclare la variable x (incrément de caractère)
Dim l As String 'déclare la variable l (Lettres)
Set pl = Range("A1:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row) 'à adapter
For Each cel In taplage 'boucle 1 : sur toutes les cellules éditées cel de la plage pl
For x = 1 To Len(cel) 'boucle 2 : sur tous les caractères de la cellule cel
'si le caractère né st pas numérique, définit la variable l
If IsNumeric(Mid(cel.Value, x, 1)) = False Then l = l & Mid(cel.Value, x, 1)
Next x 'prochain caractères de la boucle 2
cel.Offset(0, 1).Value = l 'place dans la cellule à coté de cel l'extraction des lettres uniquement (à adapter)
Next cel 'prochaine cellule de la boucle 1
End Sub