XL 2010 adapter une macro sur la feuille active

Sub essai()
    Dim plage As Range, Z%, cell As Range
    Application.ScreenUpdating = False
    Set F = Sheets("test")
    For Z = 3 To 33
        For Each cell In ActiveSheet.Range("F1:K10")
            If cell.Value = F.Cells(Z, 2).Value Then cell.Interior.Color = F.Cells(Z, 2).Interior.Color
            If cell.Value = F.Cells(Z, 2).Value Then cell.Font.Color = F.Cells(Z, 2).Font.Color
        Next cell
    Next Z
End Sub

Sub essai()
Dim P As Range, c As Range
Set P = Sheets("edt").[F1:K10] 'plage à adapter
Application.ScreenUpdating = False
P.Interior.ColorIndex = xlNone 'RAZ
On Error Resume Next 'si aucune SpecialCell
For Each c In Sheets("test").[B:B].SpecialCells(xlCellTypeConstants) 'colonne à adapter
    P.Replace c, "#N/A", xlWhole
    P.SpecialCells(xlCellTypeConstants, 16).Interior.Color = c.Interior.Color
    P.Replace "#N/A", c
Next
End Sub

Option Explicit

Sub essai()
  Dim cel1 As Range, cel2 As Range, Z As Byte
  Application.ScreenUpdating = 0
  For Z = 3 To 33
    Set cel1 = Cells(Z, 2)
    For Each cel2 In [F1:K10]
      If cel2 = cel1 Then
        cel2.Interior.Color = cel1.Interior.Color
        cel2.Font.Color = cel1.Font.Color
      End If
    Next cel2
  Next Z
End Sub

Sub essai()
Dim P As Range, c As Range
Set P = Sheets("edt").[F1:K10] 'plage à adapter
Application.ScreenUpdating = False
P.Interior.ColorIndex = xlNone 'RAZ couleur fond
P.Font.ColorIndex = xlAutomatic 'RAZ couleur police
On Error Resume Next 'si aucune SpecialCell
For Each c In Sheets("test").[B:B].SpecialCells(xlCellTypeConstants) 'colonne à adapter
    P.Replace c, "#N/A", xlWhole
    With P.SpecialCells(xlCellTypeConstants, 16)
        .Interior.Color = c.Interior.Color
        .Font.Color = c.Font.Color
    End With
    P.Replace "#N/A", c
Next
End Sub