Private Sub testvaleur(Val As Integer)
Dim Debut, Fin
ctr = Application.Match(Val * 1, Range('A:A'), 0)
If IsNumeric(ctr) Then
Debut = Range('B2')(ctr, 1).Value 'Valeur de la 2eme Col qui corresponde
'et puis on doit continuer pour trouver la derniere occurence
Fin = Range('B2')(ctr + 7, 1).Value
MsgBox 'La valeur ' & Val & ' se trouve dans la plage de ' & Debut & ' au ' & Fin
End If
End Sub