VBA qui s'applique sur tous le classeur

sub change1( nomfeuille1 as string)
With Sheets(nomfeuille1)
Set plage = .Range("A1:BB62")
For Each X In plage

If X.Value = "
..........

Private Sub Worksheet_Change(ByVal Target As Range)
' appel de la procédure en passant le nom de la feuille qui lance la procédure
call change1(Target.Worksheet.Name) 
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'...
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim X As Range
For Each X In Sh.Range("A1:BB62")
If X.Value = "RH" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "CA" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "FR" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "HS" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "JU" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "RTT" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "CT" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "AN" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "MED" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "RV" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "EF" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "RF" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "RTP" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "MAL" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "AC" Then X.Cells.Interior.ColorIndex = 15
Next X
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim X As Range
For Each X In Target
If X.Value = "RH" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "CA" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "FR" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "HS" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "JU" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "RTT" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "CT" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "AN" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "MED" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "RV" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "EF" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "RF" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "RTP" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "MAL" Then X.Cells.Interior.ColorIndex = 15
If X.Value = "AC" Then X.Cells.Interior.ColorIndex = 15
Next X
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("A1:BB62")) Is Nothing Then
Select Case Target
Case "RH", "CA", "FR", "HS", "JU", "RH", "CA", "FR", "RTT", "CT", "AN", "MED", "RV", "EF", "RF", "RTP", "MAL", "AC"
Target.Interior.ColorIndex = 15
End Select
[B]If Target.Value = "" Then Target.Interior.ColorIndex = 0[/B]
End If
End Sub

Target.Interior.ColorIndex = IIf(Target = "", xlNone, 15)