Remplir cellules vides d'une colonne en parallèle à une autre

J'avais essayé, entre autres, cette option:

Private Sub Remplir_Cellules_A()

Dim N As Long 'N Nom
Dim M As Long 'M Matière

N = 1
M = 1

' Exprimer la double condition, cellule dans la colonne B non vide et celle de A vide.

If (Sheets(Feuil1).Cells("M", 2)) <> "" And (Sheets(Feuil1).Cells("N", 2)) = "" Then

Sheets("Feuil1").Cells(65535, 1).End(xlUp)(2).Value = _
Sheets("Feuil1").Cells("N" - 1, 2)

End If

N = N + 1
M = M + 1

End Sub

Dans l'exécution pas à pas, la commande If présente un erreur '13', incompatibilité de type

Merci de tes suggestions, cependant, je n’arrive pas encore à une macro fonctionnelle pour cette commande. Vous trouverez ci-dessous le résultat le plus proche à ce que je cherche.

Supposons les suivantes données pour la colonne A (Nom) et la B (Matières)
A : (Oscar)
B : (Science, Math, Français, Anglais)
Voici la macro :

Private Sub Remplir_Cellules_C()

Dim m As Long
Dim n As Long

m = 1 ' m fait référence à commencer à la ligne 2 (Colonne B Matières)
n = 2 ' n fait référence à commencer à la ligne 2 (colonne A Nom)

While Not IsEmpty(Sheets("Feuil1").Cells(m, 2))

Sheets("Feuil1").Cells(65535, 1).End(xlUp)(2).Value = _
Sheets("Feuil1").Cells(n, 1)

m = m + 1 ' passer à la ligne prochaine pour faire le test
n = n + 1
Wend

End Sub

Le problème de cette macro, c’est qu’elle compte le nombre de lignes utilisées (non vides) et elle copie le nom ‘Oscar’ autant de fois que les cellules dans la colonne B sont non vides. Alors, à la première exécution j’ai ‘Oscar’ sur 5 cellules, pendant que la colonne B comporte que 4 données.


À une deuxième étape, j’ai ajouté une condition avec If et And, mais cela n’a pas fonctionné :
Private Sub Remplir_Cellules_D()

Dim m As Long
Dim n As Long

m = 1 ' m fait référence à commencer à la ligne 2 (Colonne 2 Matières)
n = 2 ' n fait référence à commencer à la ligne 2 (colonne 1 Nom)

If Sheets("Feuil1").Cells(n, 2) = "" And Sheets("Feuil1").Cells(m, 2) <> "" Then

While Not IsEmpty(Sheets("Feuil1").Cells(m, 2))

Sheets("Feuil1").Cells(65535, 1).End(xlUp)(2).Value = _
Sheets("Feuil1").Cells(n, 1)

m = m + 1 ' passer à la ligne prochaine pour faire le test
n = n + 1
Wend
Else
End If
End Sub