Recopier un macro

Bonjour

voila j'ai deja un macro majuscul dans un cellule K7, et je souhaite fair pareil dans la cellule J7 juste à coté.

quelqu'un pourai m'aider à le recopier

Merci d'avance.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

If Not Application.Intersect(Target, Range("K7")) Is Nothing Then

Target = UCase(Target)

End If

End Sub

bonne journée

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("J7:K7")) Is Nothing Then
        Target = UCase(Target)
    End If
End Sub

A+

ca marche

Merci beaucoup

et bonne journée