XL 2019 L'indice n'appartient pas à la sélection

Bonjour,
j'ai un souci avec cette macro sur la ligne rouge que je n'arrive pas à résoudre et j'aurai voulu que la valeur soit pécififi à 3 .
Car l'origine de la macro, c'est ce qu'il a après le Else et fonctionne très bien. Sauf que je voulais ajouter une condition.
Merci pour votre retour


La macro d'origine qui fonctionne très bien.


Sub Mai()
Nomfeuille = "" & Range("a3") & Year(Now()) & " " & Range("c23")
If FeuilleExiste(Nomfeuille) = True Then
Worksheets(Nomfeuille).PrintOut
Range("F" & 19 + Range("c23")) = "Fiche imprimée"
Sheets(Nomfeuille).Range("AF1") = "Fiche imprimée"
Sheets(Nomfeuille).Range("Ae1") = "3"
Call enregistrement
End If
End Sub

la macro que je souhaite modifier et qui me pose un problème.


Sub Mai()
Nomfeuille = "" & Range("a3") & Year(Now()) & " " & Range("c24")

If Sheets("Nomfeuille"). Range("Ae1"). Value <> "" Then

Call enregistrement
Else

Worksheets(Nomfeuille).PrintOut
Range("F" & 19 + Range("c24")) = "Fiche imprimée"
Sheets(Nomfeuille).Range("AF1") = "Fiche imprimée"
Sheets(Nomfeuille).Range("Ae1") = "3"
Call enregistrement
End If

End Sub