VBA Excel - Problème de boucle for

Bonjour,

Je suis entrain de créer une boucle qui, pour chaque case vide d'une colonne, regardera la case de la colonne à coté pour me remplir la case vide.

Exemple

en E6:cellule vide
regarde en F6 ou c'est écrit Infotronics
met en E6: systèmes industriels

Option Explicit

Sub filière() 'Met la bonne filière dans les cellules vides
Dim a As Long
Dim nb_lignes As Integer

Voici mon code, mais le programme me dit "Erreur de compilation : Next sans for", je ne vois aucun problème et j'aimerais savoir si vous en voyez 1 svp.. merci d'avance :)

Worksheets("liste").Activate 'Aller sur l'onglet liste
nb_lignes = Range("A65536").End(xlUp).Row 'Trouver le nombre de ligne remplie
For a = 2 To nb_lignes
Cells(a, 5).Select 'Colonne E
If IsEmpty(ActiveCell.Value) Then 'Si la cellule est vide
If Cells(a, 6) = "N-Biotechnologie" Then
ActiveCell.Value = "Technologies du vivant"
Else
If Cells(a, 6) = "Design and Materials" Then
ActiveCell.Value = "Systèmes industriels"
Else
If Cells(a, 6) = "Infotronics" Then
ActiveCell.Value = "Systèmes industriels"
Else
If Cells(a, 6) = "Infogest cursus court" Then
ActiveCell.Value = "Informatique de gestion"
Else
If Cells(a, 6) = "N-Technologie alimentaire" Then
ActiveCell.Value = "Technologies du vivant"
Else
If Cells(a, 6) = "Power and Control" Then
ActiveCell.Value = "Systèmes industriels"
Else
If Cells(a, 6) = "Chimie analytique" Then
ActiveCell.Value = "Technologie du vivant"
Else
ActiveCell.Value = "ERROR!"
Exit For
End If


Next a

End Sub