Sub Macro1()
Dim numero As Byte
Dim ligb As Long, lig As Long
numero = Sheets("Bilan 2011").Range("A3")
ligb = Sheets("Bilan 2011").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
If Sheets("Semaine").Range("E3") <= numero Then
MsgBox "cette semaine est déjà archivée"
Exit Sub
Else
Sheets.Add After:=Sheets(Sheets.Count)
ActiveWindow.DisplayGridlines = False
On Error GoTo mesg
Sheets(Sheets.Count).Name = "semaine" & Sheets("Semaine").Range("E3")
Sheets("semaine").Columns("C:J").Copy Sheets(Sheets.Count).Range("C1")
With Sheets("semaine")
lig = .Cells(Rows.Count, 3).End(xlUp).Row
.Range("C7:J" & lig).Copy Sheets("Bilan 2011").Cells(ligb, 2)
.Rows("7:" & lig).ClearContents
End With
End If
Exit Sub
mesg:
MsgBox "impossible d'archiver cette semaine"
End Sub