XL 2016 Message d'alerte pour une cellule particuliere non renseigne

Bonjour a tous ! J'ai soucis avec mon code. En faite je veux faire appel a un msgbox a chaque foi que la cellule A est vide alors que la cellule F est renseigné. Voilà mon code:
Private sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As integer
Dim derligne As integer
derligne=Range("A1000"). End(xlUp).Row
For i=3 To derligne
If Cells(i,6)<>"" Ans Cells(i,1)="" Then
MsgBox("Veuillez renseigner l'année SVP"),vbOKOnly,"Chose capitale!"
End if
Next i
End sub