Format d'une cellule à partir d'une sub

Bonjour,

J'ai ce code là et j'aimerai bien inclure ma sub dans la fonction pour que le format de la cellule soit considérer directement dans ma fonction si possible :

Sub taille()

'

' taille Macro

'

'

Sheets("Relationpouvoir").Select

Range("C3:G7").Select

Selection.Rows.AutoFit

End Sub

Function laMatrice(lesNoms As Range, relation As Single, pouvoir As Single) As String

Application.Volatile

For Each n In lesNoms

If n.Offset(0, 6) = relation And n.Offset(0, 7) = pouvoir Then ch = ch & n.Value & vbCrLf

Next n

If Len(ch) > 0 Then laMatrice = Mid(ch, 1)

End Function

Merci

Bonjour

Cordialement