Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
If Not Application.Intersect(Target, [g18]) Is Nothing Then
With Sheets("Feuil1") 'A remplacer par ta feuille de travail.
.Range("i1:bz60").ClearContents
For i = 1 To Target.Value
.Range(.Cells(i, 1), .Cells(52, 7)).Copy .Cells(i * 52, 9)
Next i
End With
End If
End Sub