Extraire des cellules d'un tableau pour les mettres dans une autre feuille

Bonjour à tous,

je vais essayer de bien exprimer mon objectif:

Voici mon interface, j'aimerais afficher sur la ligne 5 des information en provenance de la feuille Import:

le tableau ici présent va recevoir une cinquantaine de ligne, et quelque chose comme 60 colonnes...

Pour faciliter sa lecture et l'analyse de ce qui m'intéresse, je voudrais afficher les lignes une par une en naviguant à l'aide des grosses flèches (capture d'écran n°1) et pouvoir sélectionner uniquement certaine colonne à afficher exemple :
La première ligne de mon tableau est là 5ième, je vais vouloir contrôler pour toutes les lignes du tableau les colonne 3,5,23,54.

Dans ma feuille "Analyse cas par cas", j'aimerais qu'il m'affiche les valeurs de la ligne 5 de mon tableau dans "Import" correspondant aux colonnes 3,5,23,54.

Voici par quoi j'ai commencer :

Dim rowcount As Integer
Sub Affichage_des_données()

    rowcount = 5
    Sheets(2).Select.A5 = Sheets(1).Select.Columns("D"): Sheets(1).Select.Rows (rowcount)

End Sub

Private Sub suivant()
    rowcount = rowcount + 1

End Sub

Private Sub precedent()
    rowcount = rowcount - 1

End Sub

Je viens de découvrir le VBA ce matin, j'ai réussi à créé un bouton pour importer mes données et pour les effacer par la suite, mais là je bloque pour l'affichage d'une feuille à l'autre...

Merci pour vos aides futur,

en vous souhaitant une bonne fin de journée!

Bonjour et bienvenue,
Joins un fichier pour une aide adaptée du forum.
Et précise la version Excel que tu utilises dans ton profil.
Cdlt.

Bonjour,
Voici le fichier.
Je n'ai rien trouvé pour avancer ma problématique...

Personne n'a une petite idée ?

Je me permet de relancer une fois encore

J'ai trouver une solution à mon problème!

Dim rowcount As Integer

Function GetValue(row As Integer, col As Integer)
    GetValue = Sheets(1).Cells(row, col)
End Function

Sub suivant()
    rowcount = rowcount + 1
    Cells(17, 5).Value = rowcount

End Sub

Sub precedent()
    rowcount = rowcount - 1
    Cells(17, 5).Value = rowcount

End Sub