Function ListFormat(tbl, forme)
Dim I&
For I = 1 To UBound(tbl)
Select Case LCase(forme)
Case "maj": tbl(I, 1) = UCase(tbl(I, 1))
Case "min": tbl(I, 1) = LCase(tbl(I, 1))
Case "proper": tbl(I, 1) = WorksheetFunction.Proper(tbl(I, 1))
'ect..etc..
Case Else: tbl(I, 1) = Format(tbl(I, 1), forme)
End Select
Next
ListFormat = tbl
End Function