Bonjour a tous,

Suite a une création de macro je rencontre un problème avec la fonction "rechercher-remplacer" :

Dans les colonnes A,B & K j'ai paramétré ma macro pour que les "," ";" "/" " " soit remplacé par des "." ( mes cellules sont au format texte). Tout fonctionne pour la colonne K par contre pour les colonnes A&B il me remplace tout avec des ",".

Voici la macro :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Macro6()
'
' Macro6 Macro
'
 
'
    Range("I2:I30").Select
    Selection.Replace What:="/", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=";", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" ", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("A2:B30").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" ", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=";", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="/", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("E16").Select
    ActiveWorkbook.Save
    ActiveWindow.SmallScroll Down:=12
    Range("B32:C34").Select
    Range("C34").Activate
End Sub
J'ai parcouru le forum pour trouver de l'aide mais rien ne ma été d'une aide (malgré le post d'un membre ayant rencontré un problème similaire).

Auriez-vous une solution a mon problème ?

Merci de votre aide bonne journée a tous.