Sub suppProf()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
NomProf = ws.Name
With ws
.UsedRange.Replace What:=NomProf, Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End With
Next ws
End Sub