Procédure pour supprimer du code VBA qui aurait été associé directement à une feuille de calcul

Sub PurgeCode()
    For Each VBComp In VBComps
        If VBComp.Type = 100 Then
           With VBComp.CodeModule
               .DeleteLines 1, .CountOfLines
           End With
        End If
    Next VBComp
End Sub