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