Function Majuscule(texte)
For n = 1 To Len(texte) - 1
If Mid(texte, n, 2) = UCase(Mid(texte, n, 2)) Then
Majuscule = True
Exit Function
End If
Next
Majuscule = False
End Function
Sub OnlyUpper_pierrejean()
Dim cell As Range
For Each cell In Selection
If Majuscule(cell) Then
With cell
.Font.ColorIndex = 3 'make font color = green
.Offset(0, 1).Value = 1
End With
End If
Next
End Sub