Marep = MsgBox('Avez-vous saisi le nouveau mois dans les paramètres ? OUI = OK, NON = Annuler', 1, 'ATTENTION')
If Marep = vbOK Then
Sheets('Feuil2').Select
Range('A8', Range('A8').End(xlDown)).Select
For Each Cell In Selection
[u][b]'Cell.Select[/b][/u]
Sheets('Feuille').Range('A1') = [color=#FF0000][b]Cell[/b][/color]
'Sheets('Feuille').Range('A1:I42').PrintOut Copies:=1, collate:=True
Next
Sheets('feuil2').Select
Range('A7').Select
Else
End If