Boujour,
j'ai un classeur avec plusieurs feuilles. Dans la première feuilles, j'ai une liste de terme dans la colonne A et dans la colonne B, le format que je souhaite avoir.
Nom : F1.JPG Affichages : 727 Taille : 31,5 Ko

Dans mes autres feuilles, j'aimerai que chaque cellule contenant le mot exacte de ma liste ci-dessus, prenne le format indiqué dans la liste.
(Je sais qu'il existe les format conditionnelles mais j'ai bcp de feuilles et beaucoups d'onglet, ce qui n'est pas pratique du tout.)
Je ne pense pas que ça soit bien compliqué mais comme je n'utilise quasiment jamais au VBA, je rame un peu...

Voilà où j'en suis dans mes tentatives :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Integer
L = 2
 
While L < 80
    If ActiveCell.Value = Sheets("Liste").Cells(L, 1).Value Then
                    Sheets("Liste").Cells(L, 2).Select
                    Selection.Copy
                    ActiveSheet.ActiveCell.Select
                    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
                    SkipBlanks:=False, Transpose:=False
    End If
    L = L + 1
Wend
 
End Sub
Pouvez vous m'aider s'il vous plait ?
Merci d'avance