Bonjour Plante01,
Vu que l'on a pas le même thème couleur et que tu n'as pas précisée l'initiale du texte inscrit dans les lignes présentées de la colonne A.
J'ai besoin d'un peu plus d'informations. Reprends le code ci-dessous dans une feuille vierge. Et reposte moi une vue.
Sub Colori()
Dim Alpha() As Variant
Dim Couleur() As Integer
ReDim Alpha(26)
ReDim Couleur(26)
For i = 1 To 26
Alpha(i) = Chr(64 + i)
Couleur(i) = i + 21
Cells(i, "B") = Alpha(i)
Cells(i, "B").Interior.ColorIndex = Couleur(i)
Next i
End Sub
Ensuite la macro enregistrée dans un fichier est propre à ce fichier. Elle ne se réplique pas sur une autre fichier automatiquement.
Sauf à créer un fichier modèle de macros sur lequel se référerait tous tes fichiers avec macros. Mais c'est plus pour un ensemble important de macros.
Et ici tu n'as qu'une macro. Donc le plus simple est de la reprendre et la sauver dans tout fichier où tu en auras besoin.
Dès réception de la vue demandée. J'adapterais la macro.
A suivre...