Macro rechercher remplace multiple

Voilà une solution.
Par compte, si quelqu'un peut me dire comment je peux faire pour tester si une feuille a été modifier ou pas.
Code:
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
Public Sub Essai()
 
'/* déclaration des variables
Dim LIGNE As Integer
Dim RECHERCHE As String
Dim REMPLACE As String
Dim FIN As Integer
 
'/* Affiche dans la barre de traitement du message suivant en bas à gauche de la fenêtre Excel
Application.StatusBar = "Traitement en cours..."
 
'/* Désactivation de l'écran
Application.ScreenUpdating = False
 
'/*MsgBox LIGNE
 
'/* Programme principale
Sheets("a").Select
 
'/* Calcul de la dernière ligne contenant une cellule non vierge
FIN = Range("A1").SpecialCells(xlCellTypeLastCell).Row
 
'/*MsgBox FIN
 
'/* Calcul de la boucle
For LIGNE = 1 To FIN
Sheets("a").Select
 
'/* Calcul de la valeur de la cellule
RECHERCHE = Cells(LIGNE, 1).Value
REMPLACE = Cells(LIGNE, 2).Value
 
'/* Message box pour ctrle des valeurs ds les cellules
'/* MsgBox "ligne" & LIGNE & RECHERCHE
'/*MsgBox RECHERCHE
'/*MsgBox REMPLACE
 
'/* Traitement sur la feuille 0
Sheets("Feuil0").Select
'/* Format de la cellule
    With Application.ReplaceFormat.Font
        .FontStyle = "Gras"
        .Subscript = False
        .ThemeColor = 4
        .TintAndShade = 0
    End With
    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.599963377788629
        .PatternTintAndShade = 0
    End With
    Cells.Replace What:=RECHERCHE, Replacement:=REMPLACE _
        , LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat _
        :=True, ReplaceFormat:=True
 
'/* Traitement sur la feuille 1
Sheets("Feuil1").Select
'/* Format de la cellule
    With Application.ReplaceFormat.Font
        .FontStyle = "Gras"
        .Subscript = False
        .ThemeColor = 4
        .TintAndShade = 0
    End With
    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.599963377788629
        .PatternTintAndShade = 0
    End With
    Cells.Replace What:=RECHERCHE, Replacement:=REMPLACE _
        , LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat _
        :=True, ReplaceFormat:=True
 
'/* Traitement sur la feuille 2
Sheets("Feuil2").Select
'/* Format de la cellule
    With Application.ReplaceFormat.Font
        .FontStyle = "Gras"
        .Subscript = False
        .ThemeColor = 4
        .TintAndShade = 0
    End With
    With Application.ReplaceFormat.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.599963377788629
        .PatternTintAndShade = 0
    End With
    Cells.Replace What:=RECHERCHE, Replacement:=REMPLACE _
        , LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat _
        :=True, ReplaceFormat:=True
 
'/* Fin de la boucle
Next LIGNE
 
'/* Désactivation de l'écran
Application.ScreenUpdating = True
 
'/* Affiche dans la barre de traitement du message suivant en bas à gauche de la fenêtre Excel
Application.StatusBar = "Traitement terminé"
 
'/* Affiche d'un message box
MsgBox "La macro est terminée."
 
End Sub