Carole, dans me majus2.zip tout fonctionne.
Il s'agit d'une macro événementielle propre à la feuille feuil1
Tu fais altF11 et tu trouves ce code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1:A10"), Target) Is Nothing Then ActiveCell = Application.Proper(ActiveCell)
If Not Intersect(Range("B1:B10"), Target) Is Nothing Then Target.Value = UCase(Target)
End Sub
en fait, comme le disait Laurent, il faut remplacer ActiveCell par Target
ce qui donne :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A1:A10"), Target) Is Nothing Then Target.value = Application.Proper(Target)
If Not Intersect(Range("B1:B10"), Target) Is Nothing Then Target.Value = UCase(Target)
End Sub
si ce n'est pas les bonnes cellules, tu modifies par tes références
pour ton cas, ça donne :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C5
17"), Target) Is Nothing Then ActiveCell = Application.Proper(ActiveCell)
If Not Intersect(Range("E5:J16,L5:N16"), Target) Is Nothing Then Target.Value = UCase(Target)
End Sub
C@thy