Demander selection Cellule

Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
With ActiveCell
  If .Address <> "$U$100" Then
    MsgBox "Sélectionner la cellule U100"
  Else
    With Range("X" & .Row, "Y" & .Row).Interior
      .ColorIndex = IIf(.ColorIndex = 3, 5, 3)
    End With
  End If
End With
End Sub

Private Sub Modifier_Click()

Dim Plage As Range
On Error Resume Next
Set Plage = _
Application.InputBox("Sélectionnez une plage de cellules", , , , , , , 8)
If Not Plage Is Nothing Then MsgBox Plage.Address
End Sub

With Plage("B" & .Row, "AM" & .Row).Interior
.ColorIndex = IIf(.ColorIndex = 3, 5, 3)
End With

Sub Modifier_Click()
    Dim Plage As Range
    On Error Resume Next
1    Set Plage = _
    Application.InputBox("Sélectionnez une cellule", , , , , , , 8)
    If Not Plage Is Nothing Then
        [COLOR="Red"]If Plage.Count > 1 Then _
          MsgBox "UNE cellule !", 48: Set Plage = Nothing: GoTo 1[/COLOR]
        With Range("B" & Plage.Row, "AM" & Plage.Row).Interior
        .ColorIndex = IIf(.ColorIndex = 3, 5, 3)
        End With
    End If
End Sub

Sub Valider_Click()
    
    Sheets("En_Cours").Select
    
'****CODE DE SELECTION PAR L'UTIILISTEUR DE LA CELLULE
    Dim Plage As Range
    On Error Resume Next
1    Set Plage = _
    Application.InputBox("Sélectionnez une cellule", , , , , , , 8)
    
    '*ON TESTE SI UNE SEULE CELLULE EST SELECTIONNE SINON ON DEMANDE DE RECOMMENCER
    If Not Plage Is Nothing Then
        If Plage.Count > 1 Then _
          MsgBox "UNE cellule !", 48: Set Plage = Nothing: GoTo 1

Sub Valider_Click()
    
    Sheets("En_Cours").Select
    
'****CODE DE SELECTION PAR L'UTIILISTEUR DE LA CELLULE
    Dim Plage As Range
    On Error Resume Next
1   Set Plage = _
    Application.InputBox("Sélectionnez une cellule", , , , , , , 8)
    [COLOR="Red"]If Plage Is Nothing Then Exit Sub[/COLOR]
    
    '*ON TESTE SI UNE SEULE CELLULE EST SELECTIONNE SINON ON DEMANDE DE RECOMMENCER
    If Plage.Count > 1 Then _
      MsgBox "UNE cellule !", 48: Set Plage = Nothing: GoTo 1
    With Range("B" & Plage.Row, "AM" & Plage.Row).Interior
      .ColorIndex = IIf(.ColorIndex = 3, 5, 3)
    End With
    
End Sub