Compilation error when calling a Sub by a button click
<p>I'm trying execute this code when a button is pressed in the sheet,
but I receive this error :</p>

<blockquote>
  <p>Call Worksheet_Change -> Compilation error - The argument is not optional</p>
</blockquote>

<pre><code>Sub Worksheet_Change(ByVal Target As Range)
Set MyPlage = Range("A1:I1200")
For Each cell In MyPlage
Select Case cell.Value
Case Is = "OK"
cell.EntireRow.Interior.ColorIndex = 43
Case Is = "NOTOK"
cell.EntireRow.Interior.ColorIndex = 3
Case Is = "P"
cell.EntireRow.Interior.ColorIndex = 6
Case Else
cell.EntireRow.Interior.ColorIndex = xlNone
End Select
Next
End Sub

Private Sub CommandButton1_Click()
Call Worksheet_Change
End Sub
</code></pre>