Hi !

I'm trying this code but I have a code error 9
Can you help me ?


Private Sub Cmd_Valid_Click()
Dim c As Integer
c = 1
For c = 1 To 12
If Range("R28").Value = c Then
Zone = "Feuil" & c + 4
End If
Next c
MsgBox "Selected sheet is" & Zone
LaPremiereDispo = Sheets(Zone).Range("E65536").End(xlUp).Offset(1, 0).Row
MsgBox "the first cell for this month is" & LaPremiereDispo
End Sub