VBA nom de feuille et écriture automatique

Bonjour,

Je bloque sur deux petits problèmes VBA par rapport à l'exemple en pièce jointe :

1 - Sur l'onglet du mois de janvier (par exemple) j'ai la macro "Arrêt Maladie" qui colore une sélection en rouge et qui inscrit "AM" à l'intérieur. Comment faire pour que sur une sélection multiple, "AM" soit inscrit dans toutes les cellules sélectionnées ?

2 - J'ai une page d'accueil afin de choisir mon mois de saisie, mais comme le nom de la feuille change selon le mois et l'année j'ai un bug. Comment faire pour qu'une macro renvoi systématiquement sur une feuille même si on en change le nom de cette feuille ?

Merci d'avance pour votre aide.

Bonjour nickal,

voici le code pour le premier problème

Sub AM()
'
' AM Macro

Selection.FormulaR1C1 = "AM"

    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

et pour le deuxième

Sub jan()
       ' jan Macro
       Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name Like "JAN*" Then
            ws.Select
            Exit For
        End If
    Next ws
End Sub

Cordialement

C'est parfait ! Et rapide !

Merci beaucoup.