[LEFT]Private Sub CommandButton2_Click()[/LEFT]
[LEFT]Dim p As Range
Set maplage = Selection
Set isect = Intersect(maplage, Range("limselect"))
If isect Is Nothing Then
MsgBox "Vous devez sélectionner des cellules comprise dans la zone encadrée", vbCritical, "Attention"
Exit Sub
Else
If isect.Address = maplage.Address Then
For Each p In maplage
p.Value = "x"
p.Interior.ColorIndex = 42
Next p
Else
MsgBox "Vous devez sélectionner des cellules comprise dans la zone encadrée", vbCritical, "Attention"
Exit Sub
End If
End If[/LEFT]