Bonjour à tous

Voila j'avais une macro qui fonctionnait que voila :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub remplacer() 
For Each c In Range("E:E") 
If c.Value <> "" Then 
c.Value = Replace(c.Value, ",", ".") 
c.Value = Replace(c.Value, " EA", "") 
c.Value = Replace(c.Value, " M", "") 
End If 
Next c 
Range("A:B").EntireColumn.Delete 
Range("1:3").EntireRow.Delete 
End Sub

Je voudrais la modifier et rajouter cela en plus mais j'ai un problème
j'ai une erreur d'execution 1004 qui me met une lgne en jaune

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub remplacer() 
Dim str As String 
str = ActiveWorkbook.Names("Div.").RefersTo --> LIGNE EN JAUNE ICI 
ActiveWorkbook.Names("Div.").Delete 
ActiveWorkbook.Names.Add "Div", str 
 
 
For Each c In Range("E:E") 
If c.Value <> "" Then 
c.Value = Replace(c.Value, ",", ".") 
c.Value = Replace(c.Value, " EA", "") 
c.Value = Replace(c.Value, " M", "") 
End If 
Next c 
Range("A:B").EntireColumn.Delete 
Range("1:3").EntireRow.Delete 
 
 
End Sub

Pouvez vous m'aider ?


Merci beaucoup


A+