Function Majuscule(texte)
For n = 1 To Len(texte)
If Asc(Mid(texte, n, 1)) > 64 And Asc(Mid(texte, n, 1)) < 91 Then
Majuscule = True
Exit Function
End If
Next
Majuscule = False
End Function
Sub OnlyUpper()
Dim cell As Range
For Each cell In Selection
If Majuscule(cell) Then
With cell
.Font.ColorIndex = 4 'make font color = green
.Offset(0, 1).Value = 1
End With
End If
Next
End Sub