XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule

Sub Copiegains()
Dim nom As String, Nomfeuille As String
Dim i As Byte

nom = (Sheets("Inscriptions").Range("Q10") * 100) & "%"
FeuilleExiste (Nomfeuille)
If FeuilleExiste(nom) = True Then
    For i = 2 To 89 Step 3
        Sheets("Gains").Cells(1, i) = Sheets(nom).Cells(1, i)
    Next i
End If
End Sub

Function FeuilleExiste(Nomfeuille As String) As Boolean
    On Error Resume Next
    FeuilleExiste = Sheets(Nomfeuille).Name <> ""
    On Error GoTo 0
End Function