'Formater une Colonne ou un range en Majuscule,Minuscule ou nom propre en un coup
'en un coup sans boucle avec evaluate
Sub test()
ACTION Range("A1:A20"), "PROPER" 'Argument possible ("UPPER","LOWER","PROPER","TRIM")
End Sub
Sub ACTION(rng As Range, forme As String)
With rng
.Value = Evaluate("IF(ISTEXT(" & .Address & ")," & forme & "(" & .Address & "),REPT(" & .Address & ",1))")
End With
End Sub