Si ce n'est absolument pas possible de créer un fichier .CSV avec le point virgule comme séparateur...
Je peux te suggérer ce type de macro
Dans ton document, on retrouve ce type d'expression :
Panneaux de liŠge 100mm en colonne C
et
panneaux de li?ge 120mm, paquet de 1m2 en colonne H
Dans les 2 cas, je suppose que les caractères "Š" et "?" remplacent le caractère "è".
Pour faire la substitution dans le fichier Excel, il est possible de faire ceci :
Tu peux mettre cette macro dans ton fichier de macros personnelles.
Elle traite toutes les feuilles du classeur actif (celui affiché à l'écran)
Évidemment dans les variables "Arr1" et "Arr2", je n'ai recensé que les 2 caractères problématiques. À toi d'identifier ces caractères et de les ajouter à la liste d'abord dans celle des caractères étranges et d'identifier leur substitut dans la liste "Arr2".
Je suppose que la liste n'est pas très longue... J'espère pour toi!
"~?" Le tilde devant le caractère "?" est pour spécifier que le "?" n'est pas le joker ou WildCard, mais bien le caractère lui-même "?". Si tu as un problème avec le caractère * , c'est le même procédé qui s'applique.
'-------------------------------------------------
Sub RemplacerLesMajusculesAccent()
Dim MaPlage As Range, A As Integer, Sh As Worksheet
'Liste des caractères étranges
Arr1 = Array("Š", "~?")
'Équivalent à chaque valeur étrange, dans le même ordre
'que la liste des caractère étranges.
Arr2 = Array("è", "è")
Application.EnableEvents = False
Application.EnableEvents = False
For Each Sh In ActiveWorkbook.Worksheets
Set MaPlage = Sh.UsedRange
For A = 0 To UBound(Arr1)
MaPlage.Replace Arr1(A), Arr2(A), LookAt:=xlPart
Next
Next
Set MaPlage = Nothing: Set Sh = Nothing
Application.EnableEvents = True
Application.EnableEvents = True
End Sub
'-------------------------------------------------