Amélioration du code de deux macros

Nagrom à dit:

Bonjour à tous,

J'ai une macro qui, quand je sélectionne une plage de cellule, inscrit un "a" dans la première cellule de la sélection.
Je souhaiterai savoir ce que je dois modifier pour que ce "a" s'inscrive dans toutes les cellules sélectionnés.

Voici le code de la macro:

Code:

'Attribution réserve
Sub Attribution_Réserve()

    With Selection.Interior
        .ColorIndex = 53
        .Pattern = xlSolid
    End With
    ActiveCell.FormulaR1C1 = "a"
    Selection.Font.ColorIndex = 53
End Sub

Je possède une autre macro qui affiche deux feuilles masquées, excécute une macro d'impression puis referme ces deux pages.
Je souhaiterais savoir comment faire pour mettre une tempo entre les ouverutre, pour obtenir ceci:
- ouverture de la première feuille
- 2s d'attente
- ouverture de la deuxième feuille
- 2s d'attente
- suite de la macro

Voici le code de la macro que j'ai actuellement:

Code:

Sub Imprimer()
' Imprimer Macro
' Macro enregistrée le 27/08/2006 par Morgan ESCHBACH

    Sheets("Formulaire").Visible = True
    Sheets("Validation").Visible = True
    Application.Run "'Fiche de garde - Synthèse_V3.xls'!Feuil2.Correction"
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
        :=True
    Sheets("Formulaire").Visible = False
    Sheets("Validation").Visible = False
End Sub

Merci d'avance.
Nagrom.

Cliquez pour agrandir...

'Attribution réserve
Sub Attribution_Réserve()

    With Selection.Interior
        .ColorIndex = 53
        .Pattern = xlSolid
    End With
    selection = "a"
    Selection.Font.ColorIndex = 53
End Sub