affichage de cellule

Sub Macro2()
Cells(24, 6).Activate
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollRow = 24
End Sub

Private Sub CommandButton1_Click()
Dim BE As String 'déclare la variable BE (Boîte d'Entrée)
Dim R As Range 'déclare la variable R (Recherche)

ActiveCell.Select 'enlève le focus au bouton
BE = InputBox("Tapez le numéro de la semaine", "AFFICHER") 'définit la boîte d'entrée BE
If BE = "" Then Exit Sub 'si bouton "Annuler" ou non renseignée, sort de la procédure
Set R = Columns(1).Find(BE, , xlValues, xlWhole) 'définit la recherche R (Recherche BE en entier dans la colonne 1)
If Not R Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
    R.Offset(-1, 0).Select 'séleçtionne la cellule au-dessus de la première occurrence trouvée
    ActiveWindow.ScrollColumn = R.Column 'place la colonne de la première occurrence trouvée à gauche de l'onglet
    ActiveWindow.ScrollRow = R.Row - 1 'place la ligne au-dessus de la première occurrence trouvée en haut de l'onglet
End If 'fin de la condition
End Sub

Sub a()
Dim nsem, x&
nsem = InputBox("N° semaine?", "Choix semaine")
If nsem = vbNullString Then Exit Sub
x = 1 * Application.Match(nsem, Range("A:A"), 0)
Application.Goto Cells(x, 1), True
End Sub

Private Sub CommandButton1_Click()

End Sub