Bonjour,

J'utilise une macro trouvée sur le net qui remplace dans ma feuille certains caractères par des autres qui sont stockés dans les cellules N1 à O1 mais je n'arrive pas à copier les formats de ces cellules .

En fait je voudrais faire apparaitre en gras et rouge ces modifications.
J'aimerais aussi limiter le remplacement aux colonnes E et F .
Malgré mes recherches je ne trouve pas et j'ai besoin de votre aide .....

Ci dessous mon code :
Merci d'avance.


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 remplacement()
 
Cells.Replace What:="PVA", Replacement:=[N1], LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
 
Cells.Replace What:="KSC", Replacement:=[M1], LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
 
Cells.Replace What:="RTE", Replacement:=[O1], LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
 
Cells.Replace What:="KMT", Replacement:=[P1], LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
 
End Sub