After serious thinking Salvatore Perrotta wrote :
==================================
Public Sub CopyRange()
Dim SourceRange As Range, TargetRange As Range
Dim CurrentMonth As String
CurrentMonth = [Sheet3!A1]
Set TargetRange = [Sheet3!C3]
Set SourceRange = Sheets(CurrentMonth).Range("B9:AI76")
SourceRange.Copy
TargetRange.PasteSpecial xlPasteAll
End Sub
===================================
Bruno