Sub convertirphrase()	
Dim plagecell As Range	
For Each plagecell In Selection	
If WorksheetFunction.IsText(plagecell) Then
plagecell.Value = UCase(Left(plagecell, 1)) &
LCase(Right(plagecell, Len(plagecell) - 1))
End If	
Next plagecell	
End Sub	

En cas de texte, vous avez la première lettre du premier mot en majuscule et restez tous en mots en minuscules pour une seule phrase et ce code vous aidera à convertir le texte normal en cas de phrase.