Private Sub CommandButton_resultats_Click()
Dim I As Integer
Dim Semaine As Integer
I = 2
Semaine = ComboBox_semaine.Value
Service = ComboBox_service.Value
Sheets(Service).Activate
Range("A1").Select
Cells.Find(What:="% réalisation BOS", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
testligne = ActiveCell.Row
TestCol = ActiveCell.Column
While Cells(I, 1).Value <> ""
comparaison_sem = Cells(I, 1).Value
If comparaison_sem = Semaine Then
pourcentagebos = Cells(I, TestCol).Value
TextBox_resultats.Value = pourcentagebos & " %"
End If
I = I + 1
Wend
End Sub