Private Sub CommandButton1_Click()
Dim C As Range
ActiveSheet.Range("a2:J300").Clear
For S = 2 To Sheets.Count
For Lig = 2 To Sheets(S).[A65000].End(xlUp).Row
If UCase(Sheets(S).Cells(Lig, "A")) = "A COMPTER" Then
Sheets(S).Cells(Lig, 1).Resize(, 9).Copy [A65000].End(xlUp).Offset(1, 1)
[A65000].End(xlUp).Offset(1) = Sheets(S).Name
End If
Next Lig
Next S