Bonjour

Mon code suivant affecte une valeur a "O6" et "O15" après le changement de la cellule "B2"
Je souhaite remplacer Range("O6") et Range("O15") par une variable
Svp est ce que mon code et correcte et bien rédiger
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim note As String
    note = Range("B2")
 
    If Target.Address = Range("B2").Address Then
 
        Select Case note
            Case Is = "A"
                Range("O6").Value = 1
                Range("O15").Value = 1
            Case Is = "B"
                Range("O6").Value = 2
                Range("O15").Value = 2
            Case Is = "C"
                Range("O6").Value = 3
                Range("O15").Value = 3
        End Select
 
    End If
Range("B6").Select
End Sub
Merci