Coloration des cellules

Bonjour tout le monde,
j'ai besoin de votre aide

en fait j'ai écrit un code qui à marché pour une partie et non pour l'autre
le voilà
Sheets("VENTE").Range("A" & ligne) = UserForm2.vdr.Value
Range("A5").Select
Range(Selection, "A20000").Select
For i = 5 To 20000
If Range("A" & i).Value <> "" Then
With Range("A" & i).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.349986266670736
.PatternTintAndShade = 0
End With
End If
Next i

Sheets("VENTE").Range("B" & ligne) = UserForm2.emt.Value
Range("B5").Select
Range(Selection, "B20000").Select
For i = 5 To 20000
If Range("B" & i).Value <> "" Then
With Range("B" & i).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent5
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
End If
Next i

pour la ligne A ça a marché ça me met la cellule non vide en gris
mais pour l'autre colonne ( la colonne B ) bein rien ne se passe ça reste sans couleur
sachant que le numéro des couleur je l'ai pris depuis l'enregistreur des macro voilà

est ce que vous pouvez m'aider