Adresse relative et pas absolue

Bonjour le forum,

Je voudrais faire une macro qui va colorer les cellules au-dessous et à droite par rapport à ma cellule active.

Le problème est que la macro me donne l'adresse absolue. Comment il est possible de remplacer E2 et E56 par quelque chose "plus dynamique" car j'aurai besoin sélectionner après des autres plages de données.

Merci d'avance pour vos idées.

Sub Ferie()
'
' Macro2 Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+F
'
    Range("E2:F41").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveWindow.SmallScroll Down:=36
    Range("E56:F63").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Bonjour

A tester

Sub Ferie()
'
' Macro2 Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+F
'

  With ActiveCell.Resize(2, 2).Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 255
    .TintAndShade = 0
    .PatternTintAndShade = 0
  End With
End Sub

Banzai

Merci pour le code!

Baton