Private Sub CommandButton1_Click()
Sheets("Exigences minimales").Activate
Dim i As Integer
i = 10
Dim j As Integer
j = 10
Do While Cells(i, 10) <> ""
If Range("J" & i) = "Responsable QSE" Then
Range("B" & i & ":I" & i).Copy Sheets("Responsable QSE").Range("B" & j & ":I" & j)
j = j + 1
End If
i = i + 1
Loop
End Sub