Private Sub CommandButton1_Click()
Sheets("Exigences minimales").Activate
Dim i As Integer, lastLine As Integer
i = 13
With ThisWorkbook.Sheets("Exigences minimales")
lastLine = .Cells(.Rows.Count, 10).End(xlUp).Row
End With
Dim j As Integer
j = 13
For i = 13 To lastLine
If Range("$H$" & i) = "Responsable QSE" Then
Range("$C$" & i & ":$G$" & i).Copy Sheets("Responsable QSE").Range("$C$" & j & ":$G$" & j)
j = j + 1
End If
Sheets("Responsable QSE").Select
Next i
End Sub