Private Sub CommandButton1_Click()
'S'il y a au moins une cellule de la selection faisant partie de la plage
If Not Intersect(Selection, Range("C17:AG300")) Is Nothing Then
'ne modifier que la (les) cellule(s) contenue(s) dans la plage
With Intersect(Selection, Range("C17:AG300"))
.Interior.ColorIndex = 3
.Value = "A"
End With
End If
End Sub