REP = InputBox("Entrez la référence que vous venez d'ajouter")
Set R = Sheets("Statistiques sirops").Range("K:L").Find(REP)
If R Is Nothing Then
MsgBox "la référence " & REP & " n'a pas été trouvée"
Exit Sub
End If
If Not R Is Nothing Then
Range(R.Address).Select
End If