Sub Onglet()
Dim Compteur As Integer, Nom As String
Set Wbk = ThisWorkbook
Sheets("produits").Visible = True
Sheets("produits").Select
For Each c In Range("J4:J100")
Nom = c.Value
If Nom <> "" Then
Wbk.Sheets(Nom).Select
Sheets(Nom).CopyActiveWorkbook.SaveAs Filename:= _
"C:\Budget\ICP B2019 " & Nom & ".xlsx" _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End If
Next c
End Sub