Mise en forme conditionnelle

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Ligne As Integer, Colonne As Integer
    Dim i As Long, j As Long
    Dim LigneMin As Integer, LigneMax As Integer
    Dim ColonneMin As Integer, ColonneMax As Integer
    '
    LigneMin = 1: LigneMax = 10
    ColonneMin = 1: ColonneMax = 10
    '
    For i = LigneMin To LigneMax
        For j = ColonneMin To ColonneMax
            Select Case Cells(i, j).Value
                Case Is < 0
                    Range(Cells(i, j), Cells(i, j)).Font.ColorIndex = 3
                Case 0 To 99
                    Range(Cells(i, j), Cells(i, j)).Font.ColorIndex = 9
                Case 100 To 999
                    Range(Cells(i, j), Cells(i, j)).Font.ColorIndex = 12
                Case 1000 To 9999
                    Range(Cells(i, j), Cells(i, j)).Font.ColorIndex = 32
                Case 10000 To 99999
                    Range(Cells(i, j), Cells(i, j)).Font.ColorIndex = 48
            End Select
        Next j
    Next i
End Sub

Sub colorier_ligne(cellule) 
Dim Lig As Integer 
'If cellule.Column <> 63 Then Exit Sub 
Lig = cellule.Row 

Select Case cellule 
     Case Is = "ACCEPTE" 
          Rows(Lig).Interior.ColorIndex = 3 'rouge 
     Case Is = "LITIGE" 
          Rows(Lig).Interior.ColorIndex = 4 'vert 
     Case Is = "ATTENTE DR" 
          Rows(Lig).Interior.ColorIndex = 6 'jaune 
     Case Is = "EN COURS" 
          Rows(Lig).Interior.ColorIndex = 8 'bleu 
     Case Is = "RETARD" 
          Rows(Lig).Interior.ColorIndex = 7 'rose 
     Case Else 
          Rows(Lig).Interior.ColorIndex = xlNone 
End Select 
End Sub

for ligne=1 to 100 'dernière ligne a adapter 
   colorier_ligne cells(ligne,"BK") 
next 

Private Sub Worksheet_Change(ByVal Target As Range) 
If Intersect(Target, Columns("BK")) Is Nothing Then Exit Sub 
colorier_ligne Target 
End Sub