Sub Couleurs_II()
Dim i&, j&
Application.ScreenUpdating = False
For i = 1 To Cells(Rows.Count, 2).End(3).Row
For j = 1 To Len(Cells(i, 2))
Select Case Asc(Cells(i, 2).Characters(j, 1).Text)
Case 48 To 57
Cells(i, 2).Characters(j, 1).Font.Color = vbYellow 'Nombre
Case 65 To 90
Cells(i, 2).Characters(j, 1).Font.Color = vbRed 'Majuscule
Case 97 To 127
Cells(i, 2).Characters(j, 1).Font.Color = vbGreen 'Minuscule
End Select
Next
Next
End Sub