Sub Raz_Base()
' Raz_Base Macro
Dim I
For Each I In Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aoùt", _
"Septembre", "Octobre", "Novembre", "Décembre")
With Sheets(I)
DerLgn = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range("A9:E" & DerLgn).ClearContents
End With
Next I
Sheets("Janvier").Activate
Range("A9").Select
End Sub