Mise en formule conditionnelle sous VBA

Bonjour à toutes et a tous

je me remets au vba , besoin d'aide pour un sujet facile

je veux que dans ma colonne B , lorsque qu'il à la valeur 5103 et 5063 , la cellule soit en fond jaune et la police en bleu.

En fait je souhaite faire une mise en forme conditionnelle mais sous vba

merci d'avance

Hello,

Dim i as integer
dim DL as integer

DM= Cells(Rows.Count, 2).End(xlUp).Row

for i = 1 to DL
if cells(i,2)= "5103" or cells(i,2) = "5063" then 
cells(i,2).interior.colorindex = 6
cells(i,2).font.colorindex = 5
end if
next i

Merci Rag02700 pour ta réactivité

Ca ne marche pas, je me souviens plus de rien , il faut pas déclarer d'autre variable? le nom de l'onglet du fichier et le nom du fichier?

oups :

Dim i as integer
dim DL as integer

DL= Cells(Rows.Count, 2).End(xlUp).Row

for i = 1 to DL
if cells(i,2)= "5103" or cells(i,2) = "5063" then 
cells(i,2).interior.colorindex = 6
cells(i,2).font.colorindex = 5
end if
next i