Bonjour sebnormand,
Une idée peut être de vérifier sur chaque feuille de ton classeur si le nom éxiste.
Imaginons tu veux vérifier si la feuille "pomme" éxiste, la cellule A1 deviens bleu, sinon elle deviens rouge
Sub FeuilleExiste()
Dim i As Integer
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "pomme" Then
With Worksheets(i).Range("A1").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight2
.TintAndShade = 0.399975585192419
.PatternTintAndShade = 0
End With
Else
With Worksheets(i).Range("A1").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 255
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next i
End Sub
Après ne connaissant pas ton fichier, j'ai fait du simple.