Private Sub Worksheet_Change(ByVal Target As Range)
i = Target.Row
If Target.Count > 1 Then Exit Sub '<-- pour éviter que ça coince si on sélectionne plusieurs cellules
Select Case Target.Column
Case 8, 17, 28, 36, 38
Target.Value = UCase$(Target.Value) ' convertit en majuscule
Case 9, 14, 18
Target.Value = StrConv(Target.Value, vbProperCase) ' convertit la première lettre du nom en majuscule
End Select