[SIZE=1]Sub réinitialiser()[/SIZE]
[SIZE=1]Dim MyArray As Variant[/SIZE]
[SIZE=1]Dim i As Byte[/SIZE]
[SIZE=1]MyArray = Array("january", "february", "march", "april", "may", [/SIZE][SIZE=1]"june", "july", "august", _[/SIZE]
[SIZE=1] "september","octo[/SIZE][SIZE=1]ber", "november", "december")[/SIZE]
[SIZE=1]With WorSheets("Total Year")[/SIZE]
[SIZE=1] .Range(.Cells(8, 1), .Cells(.Cells(65536, 1).End(xlUp).Row + 1, 21).ClearContents[/SIZE]
[SIZE=1]End With[/SIZE]
[SIZE=1]For i = 0 To UBound(MyArray, 1)[/SIZE]
[SIZE=1] Worksheets(MyArray(i)).Range("IV1").ClearContents[/SIZE]
[SIZE=1]Next[/SIZE]
[SIZE=1]End Sub[/SIZE]