Sub suppression()
Dim mav As Variant
Dim Chemin As String
Dim i As Integer
Dim j As Integer
Dim b As Variant
Dim c As Variant
Chemin = ActiveWorkbook.Path & Application.PathSeparator
mav = InputBox("rentrer nom feuile", "nom feuile")
With ThisWorkbook.Sheets(mav)
For i = .Range("B" & .Rows.Count).End(xlUp).Row To 6 Step -1
b = .Range("C" & i).Value
c = .Range("e" & i).Value
Sheets(mav).Select
Sheets(mav).Copy
ActiveWorkbook.SaveAs Filename:=Chemin & b & " " & c & ".xlsx"
For j = 6 To 50
If Cells(j, 3).Value <> b Then
Cells(j, 3).entireraw.Delete
End If
Next j
Next i
End With
End Sub