selection une colonne/ligne à l'ouverture

Bonjour

essaie ce code à mettre dans Thisworkbook

Private Sub Workbook_Open()
Sheets('feuil1').Select
For i = 2 To 256 Step 2
If Month(Cells(5, i).Value) = Month(Date) And Year(Cells(5, i).Value) = Year(Date) Then
derligne = Range(Cells(65536, i).Address).End(xlUp).Row
If derligne < 15 Then Cells(15, i).Select: Exit Sub
Range(Cells(65536, i).Address).End(xlUp).Offset(1, 0).Select
Exit Sub
End If
Next i
MsgBox 'Date non trouvée'
End Sub

bonjour eric
merci pour ton aide cependant comment definir (dim)
'i' et 'derligne'...

j'ai trouvé pour dimensionner
ca foncyionne bien
merci pour ton aide
merci au forum
bonne journée à tous