Private Sub Worksheet_Change(ByVal Target As Range)
'Macro Dan le 08/12/2010
If Not Intersect(Target, Range("A4")) Is Nothing Then
Sheets(3).Name = "TB DEP " & Target
Sheets(4).Name = "TB REC " & Target
Sheets(5).Name = "Trésorerie " & Target
Sheets(6).Name = "Graphique " & Target
Sheets(7).Name = "TB DEP " & Target + 1
Sheets(8).Name = "TB REC " & Target + 1
Sheets(9).Name = "Trésorerie " & Target + 1
Sheets(10).Name = "Graphique " & Target + 1
End If
End Sub